





The Assembly Book 


To get the most out of any computer, programs should be 
written in machine language. Machine language is made 
up of numbers and those who program entirely in machine 
language, sooner or later will need a rubber room. 
Assembly language can give us the greater speed 
associated with machine language, while retaining some of 
the ease of comprehension of a high-level language like 
BASIC or Pascal. 


This book assumes that you have a reasonable amount of 
familiarity with the Apple ][, ][+, lie or lie computer, and that 
you have some experience in writing and running 
programs in a high-level language such as BASIC or 
Pascal. It is not necessary to be number one in your class, 
president of your users' group, or the whiz kid of the 
neighborhood, but you do need to be able to program - 
that is, to think through a problem logically, and devise 
instructions for solving the problem. 


This tutorial comes with the ORCA/EZ Assembler, a subset 
of the popular ORCA/M Assembler used by programmers 
all over the world. The Assembly book and ORCA/EZ are 
all you need to get started as an assembly language 
programmer. 
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INTRODUCTION 


Computer programming has come a long way since the 
not-so-good old days. To be a programmer then meant thinking in 
binary numbers, and making sure wires connected the correct 
circuit elements. Now we can choose among high-level languages 
which are almost as close to real English as what we hear on the 
street, and the only wires we have to worry about are the ones that 
allow us to plug our computers into a wall outlet. There has been a 
price to pay for all this convenience, however. Compilers and 
interpreters are needed to tell our computers what we are saying, 
and that takes time and memory. We could go back to machine 
language (and indeed, sometimes we do), but then we have the 
problem of thinking entirely in numbers again. Assembly language 
can give us the greater speed associated with machine language, 
while retaining some of the ease of comprehension of a high-level 
language. 

This book assumes that you have a reasonable amount of 
familiarity with the Apple ][, ][+, //e or //c computer, and that you 
have some experience in writing and running programs in a 
high-level language such as BASIC or Pascal. It is not necessary to 
be number one in your class, president of your users' group, or the 
whiz kid of the neighborhood, but you do need to be able to 
program - that is, to think through a problem logically, and devise 
instructions for solving the problem. You do not need a degree in 
math, but you should be able to add, subtract, multiply, and divide, 
and be willing to learn some mathematical concepts. Machine and 
assembly language programming require the use of numbers - lots 
of them - and while you should feel free to use a calculator for long 
computations, you also need to understand some abstract ideas. In 
addition, you should plan to spend some time working with the 
ideas presented in each section, working through sample problems 
and programs until you really understand the concepts they 
illustrate. 



To successfully write assembly language programs of any 
length, you will need an assembler. There are several on the market 
which will do the job, but the differences between two Apple 
assemblers can be as big as the difference between programming 
in BASIC and Pascal. For that reason, any book of this type must 
concentrate on a particular assembler. This tutorial comes with the 
ORCA/EZ Assembler, which is an excellent one to start with. You 
can also use the book with the ORCA/M macro assembler, since 
ORCA/EZ is a subset of ORCA/M. You may, of course, use some 
other assembler, but that will require understanding what is going 
on in the examples well enough to translate those examples as you 
go, which will not be easy. If you already have ORCA/M, fine - it will 

do far more than you need. If not, start with ORCA/EZ; it was 
designed for beginners. 

This book does not attempt to explain the entire instruction 
set of the 6502 microprocessor. It is a step-by-step guide to the 
most fundamental ideas of machine and assembly language 
programming. After working through the entire tutorial, you can 
expect to have a thorough grounding in underlying principles, and 
complete mastery of some instructions. You should also be able to 
extend your understanding to the rest of the instruction set by 
reading any of the intermediate level books on the market; the 
bibliography lists some of them. Topics to be covered include: 


-> binary and hexadecimal numbers 
-> use of the monitor and editor 
-> addressing modes 
-> use of the stack 
-> text I/O 

* 

-> decimal number I/O 
-> a survey of available aids 

As new topics are introduced, you will use these concepts to build a 
program which is developed from section to section, culminating in 
a calculator program which will add, subtract, multiply, and divide. 



The book is organized in chapters which correspond to 2-hour 
class sessions in an introductory course in assembly language 
programming taught by the author of the ORCA/M and ORCA/EZ 
Assemblers, Mike Westerfield. Each chapter deals with one major 
concept, and includes practice problems and programs in a tutorial 
format. Detailed explanations and sample problems are given, with 
answers to common or probable questions. 





SESSION ONE 

Hex Arithmetic 

(the 16 finger method) 

PRELUDE: So What's Assembly Language? 

(Ode to the Tower of Babel) 

Before beginning this great adventure, let’s take a few 
moments to survey the road ahead, and some of the other roads 
that lead off from where we stand. As Robert Frost put it (sort of), 
you are about to choose the road less traveled by, thus entering the 
priesthood of the bit twiddlers, and there are a few things that bit 
twiddlers are simply expected to know, whether or not those things 
have any direct impact on twiddling bits. This session will explore 
the difference between assembly language and machine language, 

and give you a brief introduction to compilers, interpreters, and 
assemblers. 

Historically, the first language used to program computers was 
machine language, and it is still used occasionally today. Machine 
language is really the only language your computer understands; it 
is a series of numeric codes that tell the computer what to do on a 
very basic level. When you program in machine language, you are 
truly communing with the machine on its own level, something we 
will actually do in Session Two. Keep in mind, though, that we will 
do it only for the purpose of learning - Real Programmers don't write 
in machine language, although most use it a little when debugging. 
If you buy a game and look at the fine print, discovering the words 
"written in machine language,” you can be sure that you are reading 
the words of someone who doesn't know his bits from his bytes. 

Assembly language was the first language designed to make it 
easier for humans to communicate with their machines. In its 
simplest form, an assembler simply lets you use names instead of 
numbers to represent the machine language instructions used by 
the computer. An assembler is a program that reads the names and 
symbols you use to write a program, and translates those symbols 
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into the machine language codes used by your computer. Since 
one symbol equates exactly to one machine language instruction, 
you lose nothing but gain a great deal: it turns out that it is much 
easier to write programs in assembly language. The only minor 
problem is that you must first have an assembler. 

As assemblers grew in power and abstraction, it became 
apparent that even higher level languages might be useful. In a 
high level language, a program statement no longer reduces to 
exactly one machine level instruction. Instead, a program called a 
compiler reads the program and, through a series of complicated 
steps, translates the program into machine language instructions. 
There are several advantages to this method. First, you can write a 
program in a language which does not depend directly on which 
machine you are using. This makes it fairly easy to move a program 
from an Apple to an IBM PC, for example. It is easier to write 
programs in a high level language, so more people can learn to do it. 
It takes less time to learn a high level language than to learn 
assembly language. Finally, you can write a program faster. The 
price is that no translator is perfect, so the finished machine 
language program is larger and slower than if it had been written in 
assembly language. Avoiding large, slow programs is, in fact, the 
most common reason for using assembly language to write a 
program. 

There are some other problems with compilers, too. A 
significant one is that debugging a compiled program is difficult, 
since the finished machine language program is very different from 
the program you type in. Wouldn’t it be easier if, instead of 
translating "PRINT A" into machine language, you used a program 
that reads "PRINT A", looks to see what the value of A is, and prints 
it? The advantages to that approach are enormous in terms of 
debugging. In addition to having the original program in memory so 
that error messages can be accompanied by the actual line where 
the error occurs, you are allowed to type in statements that are 
executed immediately. An interpreter operates in this manner. It 
turns out that interpreters are often smaller than compilers, too, 
creating a nearly ideal combination for small micro-computers. 
BASIC is the most familiar interpreter to most of us, since it lives on 
every Apple ][ series computer. The problem with all of this is that 

s m 
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reading "PRINT A” is a slow process, and if this statement appears in 
the middle of a loop that executes it 100 times, the interpreter has 
to read it 1 00 times, once for each pass through the loop. 

Let's stop for a moment and clear up one common 
misconception. Do you have to interpret a BASIC program? No! 
We certainly can, and usually do, but it would be possible to write a 
compiler to translate Applesoft BASIC programs to machine 
language, and many people have done so. This can be a winning 
combination - using interpreted BASIC to make the task of writing 
and debugging easy, then compiling the finished program to make 
it fast. (As it turns out, we don't make the program small. On the 
average, a compiled BASIC program is about three times larger than 
the Applesoft program you type in.) 

Although all computer languages can be classified as 
assemblers, compilers, or interpreters, not all fall into just one of 
those categories. Apple Pascal, for example, compiles your Pascal 
program, but it doesn't produce machine code. Instead, it produces 
a very efficient “P-code", which is then interpreted. Since P-code is 
easier to interpret than Applesoft, Pascal programs run faster than 
Applesoft programs on the Apple, but since P-codes are 
interpreted, compiled BASIC programs run faster still. 

The following table lists some common languages and tells 
what kind of language each is. Keep in mind that, with a few 
exceptions, each high level language could be interpreted, 
compiled, or both. The table below lists the most common choice. 


Language 

Class 

BASIC 

interpreter 

Fortran 

compiler 

Cobol 

compiler 

Pascal 

compiler/interpreter 

C 

compiler 

Lisp 

interpreter 

Logo 

interpreter 
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Now it's time to pick a path from the available choices. In order 
to write good assembly language programs, and fully understand 
what you are doing, it is necessary to first understand exactly what 
machine language is. That means you have to learn what 
hexadecimal numbers are, and how to use them, so that's where we 
will start. 
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Bits, Nibbles, and Bytes 

(They Eat Apples, Don't They?) 

Actually, the question is more appropriately one of how an 
Apple eats. Computers don't really deal with numbers, at least not 
in the way we think of numbers. Reality, for a computer, is reduced 
to the simple question of relative voltage at different points in its 
circuits. These two possible situations can be represented using 
just two symbols: 1 to represent high voltage, and 0 to represent 
low voltage. These two digits make up what we call the binary 
number system (binary means having two digits or symbols). [For 
those who believe in getting their money's worth, these two 
symbols do double duty by representing true and false, 
respectively, but that's confusing the issue unnecessarily.] 

Before we get down to the task of learning assembly 
language, we have to understand numbers in the way that the 
computer understands them Fortunately we don't have to plug 
ourselves into the wall to learn this. We also will learn a little about 
machine language programming, so that we will better understand 
what goes on in an assembly language program. 

To begin, consider the decimal number system, which is the 
one we use. How are the symbols arranged to form new numerals 
as we count? 

zero 
one 
two 
three 
four 
five 
six 
seven 
eight 
nine 
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0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

You may have noticed that we 
just ran out of symbols. We will 
have to start over with 0, and 



somehow indicate that we have 
already been through the list 
once. We do this by starting a 
new column to the left, in which 
we place a one to indicate that 
we have already been through 
the list once. This one also 
corresponds to one "ten". 


ten 1 0 

eleven 1 1 

twelve 1 2 

thirteen 13 

fourteen 1 4 


twenty 20 Notice the 2 in the tens 

column. We have been 
through our list of digits twice. 

: We continue in this way until 

we reach 99. Since we have 
been through the double digits 
once, we put a one in the next 
column to the left - the 
hundreds column - and start 
ninety-nine 99 over again with zeros in the 

one hundred 100 ones and tens columns. A 

similar process occurs when 

: we reach 1000, 10000, etc. 


Now consider the binary number system. In general, the same 
rules will apply, except that we have only two digits, 0 and 1 : 


zero 0 

one 1 

We have already run out of 
digits, so we start over by 
placing a 0 in the ones column 




two 

three 


four 

five 

six 

seven 

eight 


nine 

ten 

eleven 

twelve 

thirteen 

fourteen 

fifteen 

sixteen 


and a 1 in the next column to 
the left. What does this colum 
represent? If you look back at 
the list of decimal numerals, 
you'll see that our second 
column began at 10, and it was 
the tens column. Here, our 
second column begins at 2, 
and it will be the twos column. 

10 

11 

Out of digits again! Follow the 
same pattern. The new column 
will be the twos column. (Yes, 
you're supposed to fill in the 
blank). 

100 

101 

110 

111 

1000 

Continue to follow the pattern 
we've established, and write 
the binary representation for 
the remaining numbers in the 
list. 


We have been talking, in an indirect way, about place value. 
Let's analyze a decimal numeral, and see how place value works: 


7 



4 3 9 6 

L 


ones 
tens 

hundreds 
thousands 

The value of this number can be computed as follows: 


4 

X 

1000 

= 4000 

3 

X 

100 

= 300 

9 

X 

10 

= 90 

6 

X 

i 

= 6 




4396 


Now let's analyze a binary numeral (don't look back at the list 
you just made until we're finished): 

10 11 

1 ones 

twos 

fours 

eights 

The value of this number can be computed as follows: 


1x8 =8 

0x4 =0 

1x2 =2 

1x1 =1 

11 (this is the decimal representation 
of the binary number 1011) 

Look at the place values in the decimal system. From right to 
left , each place value is 10 times that of the previous place. In the 
binary system, again looking from right to Jgfi, each place value is 2 
times that of the previous place. Do you see the pattern? If a binary 
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numeral were eight digits long, could you tell the place value of 
each? (Don't look at the next line until you try it). 

The place values are: 128/64/32/ 16/8/4/2/1 


You might stop now, and write out the binary numbers from 
zero to fifty, to get used to counting this way. The results are shown 
below. 


0 . 


1 . 

1011 . 

10101 . 

11111 . 

101001 . 

10 . 

1100 . 

10110 . 

100000 . 

101010 . 

11 . 

1101 . 

10111 . 

100001 . 

101011 . 

100 . 

1110 . 

11000 . 

100010 . 

101100 . 

101 . 

1111 . 

11001 . 

100011 . 

101101 . 

110 . 

10000 . 

11010 . 

100100 . 

101110 . 

111 . 

10001 . 

11011 . 

100101 . 

101111 . 

1000 . 

10010 . 

11100 . 

100110 . 

110000 . 

1001 . 

10011 . 

11101 . 

100111 . 

110001 . 

1010 . 

10100 . 

11110 . 

101000 . 

110010 . 


Now, considering what you've discovered about place value in the 
binary system, we can find the (decimal) value of the following binary 
numerals. You should try covering up the answers and figuring it out 
for yourself. 


00010010 

0+0+0+16+0+0+2+0 

= 

18 

10111001 

128+0+32+16+8+0+0+1 

= 

185 

01011101 

0+64+0+16+8+4+0+1 

S 

93 

00001 1 1 0 

0+0+0+0+8+4+2+0 

- 

14 

10101010 

128+0+32+0+8+0+2+0 

= 

170 

00000111 

0+0+0+0+0+4+2+1 

= 

7 

11101110 

128+64+32+0+8+4+2+0 

S 

238 

01100110 

0+64+32+0+0+4+2+0 

= 

102 

00111100 

0+0+32+16+8+4+0+0 

2 

60 

10111111 

128+0+32+16+8+4+2+1 

= 

191 
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Soooo... you didn't plan on doing math homework when you 
started this book? Never tear, we're returning to that clever machine 
of yours right now. Each digit of a binary numeral is important to a 
computer and is referred to as a M (short for Binary digiT). As 
you've probably noticed, all these bits can get out of hand for mere 
mortals such as ourselves, unless some method of organizing them 
can be found. Fortunately, your computer has not one, but two 
methods of organizing these Ms into manageable groups. It deals 
with eight at a time (that's why the 6502, the "brain" of the 
Apple, is called an "eight-bit microprocessor"). This eight-bit unit is 
called a bvte . and may be further subdivided into two 4-bit units 
called nibbles . The term, nibble, was almost unheard of five years 
ago, and is ..pretty much unheard of when discussing mainframe 
computers. It is used almost exclusively in reference to 
microcomputers. One byte, therefore, equals two nibbles, as any 
parent of a finicky child can attest. 

Since the computer deals with 8 bits at once, we do not drop 
leading zeros in our binary representation of numbers: 


zero 

00000000 

one 

00000001 

two 

00000010 

three 

00000011 

four 

» 

0 

00000100 

9 

9 

■ 

• 

255 

9 

• 

11111111 


This is the largest number that 
can be represented with 8 bits. 
This means that 1 byte gives us 
256 possible numbers to work 
with (0 to 255). We can also 
think of 2 nibbles as giving us 
the same numbers to work with. 

For convenience, we split each byte into 2 nibbles. Since a 
nibble can have a value from 0 to 15 (refer to the list you completed 
earlier), we need an easy way to write these values. We use the 10 
digits of the decimal numbering system, plus the 6 letters, A-F. 
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zero 

0000 

0 

one 

0001 

1 

two 

0010 

2 

three 

0011 

3 

four 

0100 

4 

five 

0101 

5 

six 

0110 

6 

seven 

0111 

7 

eight 

1000 

8 

nine 

1001 

9 

ten 

1010 

A 

eleven 

1011 

B 

twelve 

1100 

C 

thirteen 

1101 

D 

fourteen 

1110 

E 

fifteen 

1111 

F 


The system just described is the way we represent the 
hexadecimal number system, also known as base 16 . The binary 
number system may also be called base 2 . and the decimal number 
system may be called base 10. Base refers to the number of single 
digits in the system. (It also has some other mathematical 
significance which you may safely ignore - for the time being). Our 
use of base 10 probably stems from the fact that we have ten 
fingers (including thumbs) for counting. Use of base 2 by 
computers arises from the computers' recognition of only two 
conditions: circuit closed or circuit open. We also use hexadecimal 
(base 16) with computers, because the 16 digits can represent all 
the possible values for a nibble. The name "hexadecimal" means 
"sixteen", from hexa- (six) and -decimal (ten). Another system 
sometimes used with computers is octal (base 81 . 




11 



Compare the representations of the numbers zero to twenty 
in the bases: 


BINARY OCTAL DECIMAL HEX 


zero 

0 

0 

0 

0 

one 

1 

1 

l 

1 

two 

10 

2 

2 

2 

three 

11 

3 

3 

3 

four 

100 

4 


4 

five 

101 

5 

5 

5 

six 

110 

6 

6 

6 

seven 

111 

7 

7 

7 

eight 

1000 

10 

8 

8 

ni ne 

1001 

11 

9 

9 

ten 

1010 

12 

10 

A 

eleven 

ion 

13 

11 

B 

twel ve 

1100 

14 

12 

C 

thirteen 

1101 

15 

13 

D 

fourteen 

1110 

16 

14 

E 

fifteen 

mi 

17 

15 

F 

sixteen 

10000 

20 

16 

10 

seventeen 

10001 

21 

17 

n 

eighteen 

10010 

22 

18 

12 

nineteen 

10011 

23 

19 

13 

twenty 

10100 

24 

20 

14 


Obviously, we have a problem. How do we tell, just by looking 
at a numeral, which base we're using? Does the numeral 11 mean 

three, or nine, or eleven, or seventeen? Mathematicians use 
subscripts to identify bases: 

11 2 is BINARY 

118 is OCTAL 

11-10 is DECIMAL 

11-16 is HEX 
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(Note: if no subscript is present, it is usually assumed among 
mathematicians that we mean base 10, since that is the base in most 
common use.) 

We will use the conventions commonly in use for 
microcomputers, and, in fact, the one used in ORCA/EZ. A binary 
number will be written using 8 bits, and will be preceded with a %. 
Decimal numbers will be written as usual, and hexadecimal numbers 
will be preceded by a $. Octal numbers will rarely, if ever, be used in 
our discussion - if they are used, they will be identified by starting 
them with an 

BINARY ~> %1 001 1000 or 10011000 <-■ DECIMAL 

HEXADECIMAL -•> $42 or 42 <-- DECIMAL 

% 

OCTAL ~> @543650271 or 543650271 <-- DECIMAL 

Regardless of which base we're using, place values are 
determined in similar ways. (You may want to review the sample 
problems you did earlier). 

The digit farthest to the right is the ones place. 

The next digit to the left is the 1 x base place. 

The next digit to the left is the 1 x base x base 
place. 

The next digit to the left is the 1 x base x base x 
base place, and so on. 

The following table shows place values for eight digits in each 
of the four bases discussed so far. To reinforce the ideas, you 
should try covering up the place values and working them out for 
yourself. 
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Now for the good news. While you should know how to work 
with octal numbers (should the need arise), we will be referring to 
them so rarely that there is no real purpose in memorizing octal 
place values. We will be using hexadecimal numbers (constantly), 
and you must know hex place values - but only to four places. The 
numbers used for machine and assembly language programming of 
your microcomputer can all be represented by one to four digits, so 
you have only three numbers to memorize for hex. (Three? We 
assume you already know that the rightmost place has the value 
ones in all bases - if you've forgotten this, you'd better go back and 
reread everything from the beginning). You also need to be sure 
that you know all eight place values for binary numerals. 


PROBLEMS 

1.1. When you've finished breathing a sigh of relief that you only 

have to memorize three place values (and as soon as you've 

memorized them), use those place values to find the decimal 

equivalents of the following hexadecimal numerals. These 

problems are similar to the ones we worked earlier for binary 

numerals. As with all problems, worked solutions appear at the back 
of the book. 


$AD4F 

$301 B 

$FF 

$D0C 

$001 F 

$2000 

$1 A 

$BAD 



1.2. Add the following hexadecimal numbers together. 
Remember to carry groups of 16, not groups of 10! Give all results 
as four digit numbers. 
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Example : 1 1 

$3A2F 
+ $AC93 


STEP 1 : 


F+3 = 1 5+3 = 18 = 16 + 2 
Write down the 2, carry 1 

STEP 2: 1+2+9 = 12 = C 

$E6C2 Write down the C (no carry) 

STEP 3: A+C = 1 0+1 2 = 22 = 1 6 +6 

Write down the 6, carry 1 
STEP 4: 1+3+A= 1+3+10 = 14 = E 

Write down the E (no carry) 


Now try these: 

$0001 $0ACE $0BAD $1A2B 

+$0005 +$CAFE +$F00D +$B2D2 




Memory 


(Of Bytes Gone By) 


OK, so now you can count in several bases, and convert 
numbers in binary and hex to their decimal equivalents. What do 
you get out of all of this? 

The computer's memory is organized into "chunks" of equal 
size. Each chunk is one bvte long; that is, it can store eight bits of 
information (and remember, the information is just a 0 or a 1). When 
we say a machine has 64K of memory, we mean 64 Kilobytes, or 
65,536 bytes of memory. In this context , kilo does not mean exactly 
1000, as it does in the metric system, but 1024, the power of 2 
closest to 1000 (this proximity suggested the term, kilobyte). 


Each one-byte memory "location" has an address, just as each 
house on a block has an address, so the computer can locate the 
information stored in that byte. Addresses are numbers two bvtes 
long, to accommodate the amount of memory the computer has. 
(Recall that one byte can only hold numbers from 0 to 255. This is 
not many units of memory - in fact, it is not even IK, much less 64K.) 
By using addresses 2 bytes long we have: 


BYTE1 


BYTE 2 


NIBBLE 1 

NIBBLE 2 

NIBBLE 3 

NIBBLE 4 

1111 

1111 

1111 

1111 

(15) 

(15) 

(15) 

(15) 

($F) 

($F) 

($F) 

($F) 


This is the largest 2-byte number we can have, so it represents 
the largest address we can have. Recall that a nibble can take on 
values from 0 to 15 ($0 to $F), so in hexadecimal, this largest 2-byte 
number is $FFFF. We can use place value to convert this to a 
decimal number: 
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$FFFF 


15 

X 

4096. = 

61440 

15 

X 

256. = 

3840 

15 

X 

16. = 

240 

15 

X 

1 . = 

15 




65535 


Thus we see that 65535 is the largest value that our 2-byte 
number can have. This gives us a total of 65536 addresses 
(remember that the first address is 0). For 6502 based 
microcomputers, then, the standard addresses are $0000 to 

Running a different program may change the values stored in a byte 
of memory, but it does noi change the address! 

Memory locations are never empty, whether you have stored a 
value in them or not. The moment you turn on your computer, all 
memory locations have values stored in them. Some of these 
values will be the same each time you turn on the computer (values 
stored during the booting up process, or values in ROM - Read Only 
Memory - which cannot be changed by a programmer). Others are 
random byproducts of currents flowing through circuits in the 
computer. 

REMEMBER: An address is 2 bytes (4 nibbles) long. 

A unit of memory is 1 byte (2 nibbles). 

A given byte of memory always has the 
same address. 
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*** BREAK TIME 


*** 


Get a cup/glass of coffee/tea/whatever. 

See a man about a horse. 

Walk around the block. 

Pat your dog/cat/spouse/significant other. 
Relax a few minutes and let all of this sink in. 


*** BACK TO WORK!! *** 
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2-Byte Hexadecimal Numbers 

(Byting Off More Than You Can Chew) 


CONVERTING DECIMAL NUMBERS TO OTHER BASES 

Up to this point we have only concerned ourselves with 
converting hex and binary numbers to decimal form, so they'd be 
easier for us to understand. The only problem is, we need to be 
able to talk to the computer in hex (or binary), and that means we 
need a method to turn the decimal numbers that we all know and 
love into hex or binary. There are several ways to do this. One is 
with a special calculator which does just such conversions. (The 
computer store and calculator company will be happy to take your 
money). The method we will use is a bit cheaper. It relies on place 
value, which we've already discussed in gruesome detail. We'll be 
considering conversion to 8-bit binary whole numbers (maximum 
value 255), and to 4-digit hexadecimal whole numbers (maximum 
value 65535). If you feel the need for some review of place value, 
refer to earlier sections of this session, or get out the place value 
problems you did before. 

The conversion process is simple: 

STEP 1. Divide the original number by the highest place 
value. Write down the quotient. This is the first digit of the 
answer. If you are converting to hex, and the quotient is 10 or 
greater, be sure to write down the corresponding hex digit 
(instead of 10, write down A as the first digit in the answer). 

STEP 2. Divide the remainder by the next highest place 
value. The quotient is the next digit of the answer. 
Remember to use hex digits if the quotient is 10 or greater. 

STEP 3. Continue the process in Step 2 until all place 
values have been used as divisors. At this point the 
remainder should be 0, since the last number you divided by 
was 1 . If the remainder is nal 0, you've got a problem, and you 
should start at step 1 and check your work. 
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EXAMPLE: 


1000 

We will be converting the decimal 

$.... 

number 1000 into a four digit 
hexadecimal number. First, we 
divide by the highest place value 
for a four digit hex number, 4096. 

$0... 

4096 goes into 1000 zero times. 
That's OK. We will use an initial 

remainder 

hex digit of 0 and keep the 

1000 

remainder of 1000 for the next 
digit. 

$03.. 

V 

The next place value is 256, 
which goes into 1000 three 
times. Three becomes our next 

remainder 

hex digit, going into the "256's 

232 

column". The remainder is 232, 
which we keep around. 

$03E. 

Continuing on, 1 6 goes into 232 
14 times, with a remainder of 8. 

remainder 

We use an E in hex numbers to 

8 

* 

represent fourteen things. 

$03 E8 

The last one is the easiest; we 
just move the final digit over. Of 
course, we really divided by the 
place value of 1 , right? 


So, you see, 1000 is really $03E8. Assembly language 
programmers do this sort of thing a lot, so don’t skip over the 
section and hope to never see this sort of thing again! 

Unless you are unusual, you probably didn't know offhand 
that 16 goes into 232 fourteen times (plus a remainder). There are 
two ways around that problem. One is to make yourself a table like 
the one shown below, which shows the product of each place value 
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times the numbers from 0 to 15. Another is to keep a small 
calculator handy when you program. It isn't all that unusual to see a 
frustrated programmer, with a calculator, sitting beside a very 
capable computer, muttering obscenities about a display that 
doesn't have A through F... 



xlS. 

x256 

X4096 

0 

0 

0 

0 

1 

16 

256 

4096 

2 

32 

512 

8192 

3 

48 

768 

12288 

4 

64 

1024 

16384 

5 

80 

1280 

20480 

6 

96 

1536 

24576 

7 

112 

1792 

28672 

8 

128 

2048 

32768 

9 

144 

2304 

36864 

10 

160 

2560 

40960 

11 

176 

2816 

45056 

12 

192 

3072 

49152 

13 

208 

3328 

53248 

14 

224 

3584 

57344 

15 

240 

3840 

61440 
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NEGATIVE NUMBERS 

m m % 

No, you don't just put a (-) in front of a hex number to make it 
negative. Since the method is a little more complex than that, we 
need to go back to the mathematical concept of a negative number. 

-1 is the number we add to 1 to get a sum of 0: 

x + 1 =0 
x =-1 

Now consider $0001 : (note that this is a hex number) 

$0001 

+ $ What digits are needed here? 

$0 000 

To answer this question, we will start with the rightmost digit 
and work toward the left: 

STEP 1. 

1 

$0001 
+ $ F 

0 


STEP 2. 

• • • 

1 1 

$ 0 0 0 1 It appears that we need another 

+$ F F $F, and the process in step 1 

will be repeated (remember that 

$ 00 we must also add the 1 we 

carried). Put down 0 (for zero 
16's, this time), and carry 1 (for 
one 256). 


We know that $1 + $F = 16 (in 
decimal), and since there is 
no hex digit for 1 6, we put 
down 0 (for zero 1 's) and carry 
1 (for one 16). 
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STEP 3. 

$0001 
+ $ FFF 


$ 000 


Once again, we need another $F 
(don't forget to add the 1 we 
carried). Put down 0 (for 
zero 256's) and carry 1 (for one 
4096). 


STEP 4. 

1111 

$ 0 0 0 1 The last addition is similar to 

+ $ F F F F the others: add $F, put down 0 

(for zero 4096's) and carry 1 

$ 0 0 0 0 (for one 65536). 


OK, it looks like it equals zero. But what about the last 1 we 
carried? Because of the fixed precision of our 2-byte number (we 
are limited to 4 nibbles, so 4 hex digits), the last 1 has been 
"dropped in the bit bucket" - a process similar to throwing junk mail 
in the circular file. It may not seem logical (and computers are 
supposed to be logical, aren't they?), but that's how it is. 

The hex representation of a negative number, found in the 
manner described above, is called the two's complement of the 
corresponding positive number. The reason isn't really important, 
but for history's sake we point out that it is due to one of the 
methods that can be used to find the negative of a number. This 
method tends to be easier for computers than humans, so we will 
ignore it. 

% 

Another method, which is easier to remember, depends only 
on the fact that subtracting a positive number from 0 gives a 
negative value, and subtracting a negative number from 0 gives a 
positive value. For example, 0-1 is -1 , 0-(-9) is 9, and so on. If we 
just remember to borrow 16 instead of 10, and keep in mind that our 
bit bucket giveth as well as taketh away (so we can borrow even if we 
"run out" of place values to borrow from), we have a simple method 
for finding the representation of negative numbers. Let's try it with 
another value, $12FD. 
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EXAMPLE: 

S m 

$0 000 First we need to subtract $D 

- $ 1 2 F D which is 1 3) from 0. We must bor- 

row to do that, so we borrow 1 6. 

FFF10 

$0 00 0 Just as we did in second grade, 

- $ 1 2 F D write down the numbers that re- 

suit when we borrow. Note that 

$ ... 3 it's OK to borrow from the bit 

bucket in column 4 (sort of like 
Uncle Sam and deficit spending). 

10-D=16-13=3. 

FFF10 

$ 0 0 0 0 F-F = 0; no borrowing needed... 

-$1 2FD 

$. . 03 


FFF10 

$ 0 0 0 0 ... and we continue in this manner 

- $ 1 2 F D until the leftmost digits have 

been subtracted. The last two 

$ E D 0 3 steps are shown here. 
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So When is Negative? 


If you recall, before the coffee break, we calculated the value 
of $FFFF and found that it equaled 65535. Yet when we found a 
representation for -1 , we got the same result. How can $FFFF equal 
both 65535 and -1? The fact is that $FFFF can represent either 
number, and the only way to tell which is meant is by context. When 
you hear a person say, "I read the red book", you hear the same 
word twice, but you recognize a pair of homonyms (words which 
sound alike, but are spelled differently and have different 
meanings). Because of the fixed precision of our 2-byte numbers, 
-1 and 65535 behave the same way as far as the computer is 
concerned (trust us!), and can be represented by the same hex 
numeral, $FFFF. 

If you've been working with the Apple very much, you may 
have invoked the (possibly mysterious) statement, CALL -936, to 
clear the text screen. CALL 64600 would accomplish the same 
thing, because -936 and 64600 have the same hexadecimal 
representation. You've learned how to find the two’s complement 
of a hex number, and now we can use this to find a positive decimal 
number which will "equal", or have the same effect internally as, a 
negative decimal number. There are three main steps: 

(1) change the decimal number's opposite (a positive version 
of the number in question) to hex, e.g., change 936 to hex 

(2) find the two's complement of this hex number 

(3) change the two's complement to a positive decimal 
numeral 


EXAMPLE: 

(1) change 936 to hex 


* 

936/4096 = 0 

936/256 = 3 

168/16=10 

8/1 =8 

remainder 936 

remainder 1 68 

remainder 8 

remainder 0 

$0... 

$03.. 

$03A 

$03A8 
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(2) find the two's complement (borrowing has not 

been shown) 

$0000 

-$03A8 


$FC58 


(3) change $FC58 to 

decimal 

15 

X 

4096 = 

61440 

12 

X 

256 = 

3072 

5 

X 

16 = 

80 

8 

X 

1 = 

8 



•4 

64600 


Let’s try one more example using decimal numbers. CALL 
-151 is a statement which allows us to enter the Apple Monitor 
(more on that in the next section), so let's find a positive 
representation for -151 . The steps are the same as in the example 
above. 

(1) change 151 to hex 

151/4096 = 0 151/256 = 0 151/16 = 9 7/1 =7 

remainder 151 remainder 151 remainder 7 remainder 0 

$0... $00.. $009. $0097 


(2) find the two's complement (borrowing has not 

been shown) 

$0000 

-$0097 


$FF69 
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(3) change $FF69 to decimal 

15 x 4096 = 61440 

15 x 256 = 3840 

6 x 16 = 96 

9 x 1 = 9 


65385 

So, CALL 65385 will have the same effect as CALL -151 . We 
will use both in the next section to enter the Apple Monitor. 


PROBLEMS 

1 .3. Convert the following decimal numbers to hexadecimal. 

17. 199. 45. 

212. 87. 240. 

3000. 27841. 3818 


1.4. Convert the numbers from problem 1.3 into binary numbers. 

Then examine groups of four binary digits and compare them with 
the hexadecimal results. 

1 .5. Find the hexadecimal (two's complement) representation for 

the following decimal numbers, then convert them to the equivalent 
positive decimal value. 

-25 -4000 

-24000 -1701 
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The Apple Monitor 


(A Worm's Eye View) 


Finally! The computer gets to do some of the work. The 
Apple Monitor, mentioned earlier, will enable us to use our new 
knowledge of hex numbers to investigate the memory of the Apple. 
During this session, we will use the Monitor as a tool, without 
worrying about technical explanations of what the Monitor is. We will 
use only two features of the Monitor, which are analogous to PEEK 
and POKE in BASIC. Think of the Monitor as a gremlin, who can 
open a window for us to look at the contents of a given address in 
memory. Our gremlin can also store values for us in addresses 
which we specify (these are by no means all the functions of the 
Monitor, but our purpose here is to explore memory). 

Go ahead, turn your Apple on! You don't even need a disk 
drive at this stage of the game, though you may boot up from a disk 
if you wish. Our first task is to enter the Monitor, which is 
accomplished with the direct command, CALL -151, followed by a 
carriage return. Do it! (Type CALL -151 and then press RETURN). 
You should see an asterisk on the screen, followed by a flashing 
cursor. The asterisk tells you that you are in the Monitor, just as > 
tells you you are in Integer BASIC, or ] tells you that you are in 
Applesoft. 

In an earlier problem, we computed a hex equivalent of -151, 
and a positive decimal equivalent as well. Since CALLs must be 
issued with decimal numbers, we won't get a chance to use the hex 
value here, but you should try the decimal equivalent you 
computed earlier. You can either turn your computer off and back 
on again between tries, or you can exit the Monitor and go into 
Applesoft by typing FP followed by a RETURN. When you see the 
Applesoft cursor, try your CALL again, but this time with the positive 
equivalent of -151 . You can also exit the Monitor by typing 3D0G 
RETURN, or by using CTRL-RESET (or just RESET, if that agrees 
with your Apple). 
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Just a brief explanation of how to talk to your gremlin, and 
you're off. If you want to see the contents of a memory location (like 
a PEEK), type the address of that location in hex, but without the 
dollar sign {$), and then RETURN. This does not affect the value 
stored in that memory location, but effectively opens a window 
through which you can view the contents (again in hex). Remember 
that an address is a 2-byte number, so it may have up to 4 hex digits. 
The values which you will be looking at are 1 -byte numbers, and the 
computer will show them to you as 2 hex digits. 

In a moment, you will learn how to change values stored in 
memory, but before trying this on your own, please follow a few 
guided exercises and read the warnings which follow very carefully . 
There are some areas of memory that you should not disturb, 
because of their special usage by the computer: 


ADDRESS 

RANGE 

RESTRICTIONS 

$0000 

$00FF 

Better not play with this today. 
Some locations are safe and others 
could cause you trouble. This is 
called Zero Page, and we'll learn 
more about it later. 

$0100 

$01 FF 

OK to read from but NOT to write to - 
a region called the STACK 

$0200 

$02FF 

• 

You can try this, but you'll get 
strange results. This is the input 
buffer. 

$0300 

$03FF 

OK to read from but not to write to - 
RESET and hardware interrupts 

$0400 

$07FF 

Do try this region, both for reading 
and writing - screen, some printer 
and DOS temporary variables. 
REBOOT after playing here. 

$C000 

% 

$CFFF 

• 

Don't read or write!!! You could 
affect your disk drive and could 
suffer a disaster. 

$D000 

* 

$FFFF 

ROM - Read Only Memory. You can 
read values here, but cannot write 
to ROM. It's safe and fun to try, 
though. 

$0800 

$9600 

A good safe place to play 

- 

$BFFF 

you can play all the way up to here if 


not using DOS. 



Here are your simple machine language equivalents of PEEK 
and POKE: 

PEEK type ADDRESS RETURN 

POKE type ADDRESS:VALUE RETURN 

Would you like to store several pieces of data in consecutive 
locations? Pick a starting address (say, 0800), type the 
addressrvalue <space> value <space> value etc. until you've listed 
all your data; then press RETURN, as in the sample below: 

* 0800:01 02 03 04 OF 0D 0E 0A 

Now examine the contents of locations 0800-0807. These 
addresses should give you the values you entered. 

Would you like to examine several locations at once? If you 
press RETURN by itself, the Monitor will show you eight 
consecutive locations, beginning with the last location opened 
(don't worry right now about what is meant by last location opened). 
Try it. You can also view the contents of all locations from the last 
opened location (there's that term again) to any address you specify 
by typing a period followed by the last address you wish to look at 
(don't forget to press RETURN): 

* .0850 

Another possible way to view memory is to type 
address. address RETURN, and the Monitor will reply by showing 
you the contents of locations from the first address to the second. 
Try: 

* 0800.0900 

Be sure to try changing some locations in the range $400 to 
$7FF. This area of memory serves double duty. Most of the 
locations, when changed, will cause a character to appear on the 
screen. 
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One last exercise, and then you can go back to playing 
intergalactic battle games on your computer. A few comments are in 
order about how the Monitor treats the addresses and values you 
enter. Since a hex address is 2 bytes (4 hex digits), if you specify an 
address using fewer than 4 digits, the Monitor will add 
to make a total of 4 digits. If you enter more than 4 digits, the 
gremlin will hack off the extras with his trusty sword (the computer 
word for hack off is truncate ) and the Monitor will use 





Since the values you are entering are 1-byte numbers, they 
have only two hex digits. A similar situation applies here. If you 
enter only one digit, the Monitor will add a leading zero. If you enter 
more than two, the gremlin's sword comes into play, your value is 
truncated (OH, NO!), and the rightmost 2 digits are used. 

Spend some time working on these skills before going on to 
the next session's work. The more complete your understanding is 
now, the easier it will be to learn difficult concepts later. 
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Session One Summary 


As we go through each session, we will introduce Monitor 
instructions, Assembler directives, and assembly language 
instructions. At the end of each session there will be a summary, 
like this one, showing all commands covered so far. Commands 
introduced in that session will be in bold face letters. 


Monitor Commands 
read memory 

set (enter values into) memory 




SESSION TWO 


Machine Language 

(Follow the Yellow Brick Road) 


The Anatomy of a Computer 

(Who was That Masked Monitor?) 


In the first session, we used the Monitor as a "black box", a 
tool which we employed to accomplish a few simple tasks, without 
bothering to find out what it really is or how it works. During this and 
following sections, we will define the Monitor more precisely and 
explore several more of its capabilites. Before we start, however, it’s 
important that you understand what elements are necessary for a 
computer, and what actually goes on when a computer executes a 
program (or even a single command). 

A computer, or computer system, has four basic components. 
We are not talking here about pieces of machinery, necessarily, but 
rather of four functions that a system must be able to fulfill. The first 
two, input and output, are almost self-explanatory. We must have a 
way to speak to the computer, to give it instructions and data to 
manipulate. The computer must be able communicate its results to 
us in some way, or all that computing has gone to waste. There are, 
of course, many input and output devices, but for the sake of this 
example we will consider the keyboard to be the input device, and 
the CRT screen to be the output device. 

The third component of a computer system has already been 
introduced - memory. Memory can be thought of in several ways as 
well; a floppy disk is kind of secondary storage for information that is 
not in use at the current moment. Again, for the sake of this 
discussion, we will consider only what is sometimes termed primary 
memory: the memory within the computer itself, apart from any 
external devices such as disk drives or tape recorders. You recall 
that memory in the Apple comes in 1-byte units, and that each byte 
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of memory is identified by a unique address which is a 2-byte 
number. (External memory, such as disk drives, are handled in a 
completely different way.) 

The fourth component is the one we need to discuss in detail. 
This is the Central Processing Unit, or CPU for short. The CPU in 
the Apple ][ series computers is the 6502 microprocessor, 
mentioned briefly in the first session. The CPU may be thought of 
as two sub-units, the arithmetic/logic unit, and the control unit. The 
arithmetic/logic unit, as its name implies, is responsible for arithmetic 
calculations and logical decisions (true/false, greater than/less 
than/equal, and so on). The control unit controls the sequence of 
events that occur when a program or instruction is executed, and is 
responsible for the orderly transfer of information from one site in 
the computer to another. 

If you have an Apple He, you don't have a 6502 CPU. Instead, 
the Apple He uses the 65C02. It turns out that everything you will 
learn about the 6502 still works on the 65C02. The 65C02 can 
execute a few extra instructions, but the differences are 
unimportant for now. 


To illustrate what goes on in your computer, we will imagine 
the innards of your Apple to be populated with not one, but 1 vm 
gremlins. The first you've already met. Connie is the Control unit, 
and is responsible for running back and forth between the 
Arithmetic/Logical unit and memory. The second, AL (short for 
arithmetic/logic) performs only a limited number of operations, but 
was hired on the basis of speed, accuracy, and not needing coffee 
breaks. Bytes of memory may be thought of as little chalk boards 
with addresses permanently engraved on them. 


As a user types in a program at the keyboard, our control 
gremlin obediently stores the instructions in memory (and keeps 
track of where they were stored). We'll use a very simple BASIC 
program as an example, and for the time being, we won't worry 
about how it gets translated from BASIC into something the 
machine understands, or how the keyboard input is handled. 
(Please realize that this is not intended to be a technical 
explanation, but is a way to give you a feeling for what goes on. As 
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we get deeper into machine and assembly language, you’ll see how 
the gremlins do their jobs). 


10 LET J = 5 
20 LET K = 8 
30 LET L = J + K 
40 PRINT "J = "; J 
50 PRINT "K = ";K 
60 PRINT "L = ";L 
70 END 


When the command RUN is issued, the first gremlin goes to 
work. Remembering where the program was stored, Connie runs to 
the first location and reads the first instruction, LET J = 5. She 
writes down the five on her handy notepad and runs off to select a 
memory location to store the value of the variable the user has 
named J, writes down its address, and copies the number 5 onto 
the chalkboard, erasing any other number that might have been 
written there. She then goes to get the next instruction (we won't 
worry at this point how she keeps track of the addresses). LET K = 
8 sends her off to repeat her earlier actions, selecting a location, 
keeping track of its address, and writing the number 8 on the 
chalkboard. 

The third instruction takes a little more work. In the first two 
instructions, she was given a number to store. This time she must 
use values from the computer's memory. She runs off, notepad in 
hand, and makes a copy of the value stored at the address she 
assigned to J, and also makes a copy of the value stored in the 
address assigned to K. The values are not removed from the 
memory locations where they were stored! Only a copy is taken 
back to the CPU, where they are delivered to AL. There’s more to 
AL than meets the eye, so for now we’ll just say that he finds the 
sum and gives this number to the first gremlin. The instruction said 
LET L = J + K, so Connie runs out to memory again, assigns an 
address to the variable called L, and writes the value computed by 
AL onto the chalkboard. She then returns for another instruction. 
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The next three lines in the program are handled similarly, so 
this will apply to lines 40, 50, and 60. The PRINT command means 
that our hard-working friend will have to write something on the 
screen. She runs off to memory, notepad and pencil ready, and 
copies (but does not remove) the value stored in the variable 
named. Then she writes the message in quotes onto the screen, 
followed by the value she has copied down. (Once again, we are 
skipping the good part about how she did it to get the general idea 
across) . 

Finally, she gets to an instruction that says END, and she can 
quit running around and take a quick nap. 

•» 

The point of all this is that values must be brought into the 

CPU from memory (even the instructions are brought into the CPU 

in the form of numbers) in order for any computing to take place. 

We will learn how these values are actually brought in to the CPU, 

how they are stored in memory, and follow AL's addition process, 
step by step. 

We can also begin now to explain what the Monitor really is 
(since the gremlins have been banished to the CPU). It is actually a 
machine language program, which resides permanently in ROM 
(Read Only Memory). As we continue our exploration of machine 
and assembly language, we'll discover more about how and when 
this program operates. 
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Registers in the 6502 

( Alphabet Soup! ) 


The CPU itself has a few bytes of memory which are used for 
storing information related to computations taking place, and for 
storing the values which are being manipulated. These memory 
locations are called registers. There are six registers with which we 
will concern ourselves; a seventh, called the i nstruction register, is 
used to store the numerical code which tells the 6502 what to do, 
but we do not have any direct interaction with it. Just be aware that 

. • 4 * 

it exists. We will refer to it from time to time as we discuss the goings 
on in the CPU, but since we are not required to manipulate it, we 
won't spend any more time worrying about it. Its information goes to 
the instruction decode p ortion of the CPU, where it becomes the 
responsibility of our control gremlin. 

The six registers which we dfi deal with directly are listed 
below, with a brief description of what each is. During this session 
we will deal those indicated by a star (the star is not part of the 
register name). 

LENGTH REGISTER NAME/FUNCTION 

2 bytes *PC Program Counter - stores 

address of next instruction 
to be executed (2 bytes long 
because addresses are 2 
bytes long) 

1 byte *A Accumulator - the register in 

which arithmetic and logic 
operations are performed 

(this is the only register 
where this can be done) 

1 byte X Index register - mostly used 

when looking at sequential 
memory locations, but can 
be used as a counter 

• • 6 • 
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1 byte 

Y 

Index register - same as X. 

1 byte 

*P 

Processor Status register - 


(we’ll 

seven of its eight bits 


deal 

indicate either information 

• m 

• * 

with 

about a previously executed 


1 bit 

instruction or control 

• 

only) 

information (these bits are 
considered separately) 

1 byte 

0 

S 

0 

Stack Pointer register - 

stores the low-order digits of 

_ • 

a stack address (if this 
sounds like a foreign 

language, it is, but you'll be 
speaking the language 
soon) 

2 bytes 

address bus 

This is not a register, but 1 6 

* 

* • 

lines that are part of the 
internal communication 
system of the Apple (the 
address of a particular 
memory location is passed 
along these lines) 


As we look in detail at the indicated registers, we’ll do so from 
the point of view of the CPU. We are not using assembly language 
yet (patience, patience). For this session, we will speak directly to 
the CPU in its native language - machine language. Machine 
language, you recall, is a language composed entirely of numbers. 
This is why machine language can be such a pain for humans. The 
6502 has 151 different executable instructions, and each one has a 
numerical code. You need either a fabulous memory, lots of 
practice to drill the codes into your reluctant brain, or a reference 
card to look at each step of the way. It's no wonder that assembly 
language is a popular alternative to machine language! And here 
we are, making you wait a little longer to start using it... but think how 
much you'll appreciate it once you get the chance! 
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THE PROGRAM COUNTER 

* 

* " ■ # 

9 

The program counter is 2 bytes long, in contrast to the t byte 
length of the other registers. This is necessary for the reasons 
discussed in Session One: a single byte address would provide 
access to only 256 memory locations, while a 2 byte address can 
identify 65,536 locations. Since the instructions which make up a 
program are themselves stored in memory, we need a 2 byte 
register to keep track of where the next instruction will come from. 
These instructions are stored in consecutive memory locations, so 
as an instruction is fetched from memory, the program counter is 
incremented by one. As we shall see, an instruction may also 
require the address of the data which is to be processed by that 
instruction, so a complete "instruction" requires from 1 to 3 bytes of 
memory. Each time information is drawn from memory, the PC is 
incremented by 1 . 


THE ADDRESS BUS 

The address bus is closely related to the program counter. 
The microprocessor loads the address from the counter onto this 
16-bit (2 byte) parallel bus to look at the information at that address. 
The data is returned, not on the address bus, but on a separate 
8-bit (1 byte) bidirectional data bus. If you thought a bus was a 
method of mass transportation, you're close. ..remember that 
everything inside your computer is transmitted as electrical signals, 
and a "bus" is the path along which these signals travel. 


THE ACCUMULATOR (A REGISTER) 

• • m 

• • • • 

• • • • • 

Although some other registers can be incremented or 
decremented by 1 , only in the A register can arithmetic operations 
or logical operations be performed. A value must be loaded from 
memory into the register before an operation, such as addition, can 

take place. Logical operations must also take place here. Because 
of its importance, we shall begin with instructions involving the A 
register. 
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THE PROCESSOR STATUS (P) REGISTER 

This register is dealt with in a significantly different way than 
the others we've discussed. Seven of the bits have special 
significance: five reflect conditions in effect after execution of a 
previous instruction, and two are control bits indicating what kind of 
arithmetic is being done, and whether processor activity may be 
interrupted. For now, we want to concern ourselves with a single 
bit, called the carry flag. This is the rightmost bit (the C bit) of the 
processor status register. When this bit is 1 , it means that the most 
recent addition generated a carry from the addition of the leftmost 
bits. When this bit is 0, it means that this addition did not generate a 
carry from the addition of the leftmost bits (you might want to quickly 
review some binary addition problems from Session One. This 
carry is the one that is usually lost in the bit bucket.) We will need to 
know about this carry when we write a machine language program to 
add two numbers. 

The Apple Monitor provides a way to look at the values stored 
in five of the registers: A, X, Y, P, and S. Remember that these 
values will be in hex. Turn on your computer and enter the Monitor 
as before (CALL -151 or CALL 65385). You should now see the 
Monitor prompt (*) and a flashing cursor. To examine the registers, 
type CTRL-E RETURN. This means that you should hold down the 
CONTROL key, press the E key, release the E key, release the 
CONTROL key, and then press RETURN. 

A=DF X=DF Y=DF P=00 S=DF 

What you see will most likely differ from what is shown here. 
Current values in the registers reflect instructions the computer has 
been executing. As we go on to write a complete machine 
language program and run it, use CTRL-E RETURN to examine the 
registers before and after running the program. 


42 



Machine Language Instructions 

( The Numbers Game ) 


As promised, we will begin with instructions affecting the A 
register, since this is where data must reside for arithmetic and 
logical operations. Since we can't do anything without data in A, our 
first task will be to load A with data from a given byte of memory. 
Since we are in machine language, our instructions, as well as 

addresses, will be numbers. Remember that we are using 
hexadecimal numbers, so the letters A-F have very specific 

numerical values. 

LDA ( LoaD A ) 

The code to tell the CPU to load A with the value from a 
particular address is $AD. This code must be followed by the 
address of the byte we wish to load into A. This address is called 
the operand o f the instruction, $AD. The CPU puts the address on 
the address bus, and the data we have requested is brought back 
into the A register. This instruction is called Load A Absolute 
(absolute means we are using absolute addressing - we must know 
the exact address of the information we wish to load). For 
convenience, we will abbreviate this LDA, but it's very important to 
realize that LDA is nol a machine language instruction - it's just 
shorthand to make life easier for us. In machine language all 

instructions are numbers , so the actual instruction is $AD. 

• • 

Suppose we wish to load A with the value found in $1 FFF. 
Before we write the complete instruction, it would help to 
understand a little about how addresses (which are 2 bytes long, 
remember) are represented. If it were obvious, we wouldn't 
mention it, right? 

An address such as $1 FFF is represented as: FF1F. 

* * ■ • 

* 

FF is called the least significant byte, or low byte (lower 
place values) 

IF is called the most significant byte, or high byte 
(higher place values) 
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As a matter of convention, we will always store numbers 

requiring two or more bytes backward in memory: 

* 

$1 2345678 would be written 78 56 34 1 2 

Note that the reversal takes place in sets of two digits (1 full 
byte). For the time being, we will not bother with the reason for this 
type of representation. It will become clearer as we develop a 
sample program. Be sure, though, to remember that numbers are 
always stored in memory with the bytes in reverse order. 

Now back to our first instruction. The instruction itself is $AD, 
followed by the operand . $1FFF. When correctly written, this 
"3-byte instruction" looks like this: 

(LDA) ad ff i f 

Remember that LDA is not part of the instruction - just a reminder to 
ourselves. We still have not succeeded in getting this instruction to 
the microprocessor, however. Recall that the instruction and its 
operand must also be fetched from memory. We will have to put the 
instruction into memory ourselves. The memory locations must be 
sequential, because they are accessed by sending the address 
from the PC out along the address bus. The PC is incremented by 
one each time it sends out an address (unless an instruction has 
been executed to change this procedure), so the first address, say 
$0800, should contain the AD, $0801 should contain FF, and 
$0802 should contain 1 F. You already know how to do this. Enter 
the Apple Monitor and place these values in memory as in Session 
One. Since the values are being placed into sequential locations, 
the easiest way is with a single command: 

*0800:AD FF1F 

4 • 

To see if you have succeeded in placing the correct values into 
memory, use the Monitor to open the window to those memory 
locations: 

• * 4 • 

* 0800.0802 

* 0800- what do you see? 
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It might also be nice if we were to place a value into $1 FFF so 
that later, we can check to see if we actually loaded the value we 
wanted into the A register. Place the value $40 in $1FFF. 
Remember, when you are using the Monitor to put values into 
particular memory locations, you do not reverse the high and low 
bytes of the address: 

9 

9 m m m , • 

* 1 FFF:40 


We now have the first line of a machine language program, 

* • • • 

and we have some data to operate on, but we are not ready to run 
the program yet. We're going to learn two more instructions, which 
we will incorporate into our program. 


STA ( STore A ) 

We have succeeded in writing code to bring a value in from 
memory and place it into the A register. How about the opposite? 
The A register can hold only one value at a time, just like a memory 
location. We can certainly envision a situation where we might want 
to save a value from the A register for future use. We probably want 
to store it in memory at a location which we will access later in the 
program. We will use the abbreviation, STA, to mean "store the 
value from A in memory". This instruction works exactly like LDA, in 
that we must provide the absolute address of the byte in which we 
want the data stored, so we call the instruction STore A absolute. 
The actual numeric code for this instruction is $8D. We will store the 
value from A in $1 FFE. This line of the program will look like: 

(STA) 8D FE IF 

• • 9 

• * * • m • • 

To be sure that the value in $1 FFE is really there because we 
put it there, and not just by coincidence, place the value $00 in 
$1 FFE (if, later on, we check the value in $1 FFE and it is 00 instead 
of 40, we'll know that our program didn't do what we wanted). Enter 
the value as follows: 

• * • 

9 m • • m a a 

« • t • 

* S 

* 1 FFE:00 
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To include this as part of the program we have begun, we must 
place this instruction into memory immediately after the last 
instruction. Since the last instruction took 1 byte for the instruction 
plus a 2-byte address, and since we began putting it into memory at 
$0800, we have used locations $0800, $0801, and $0802. This 
means we must enter our next instruction, and its operand, 
beginning at $0803: 

* 0803:8D FE IF 

Our "program", such as it is, now looks like this (we can't really lisi it 
as we are accustomed to doing in BASIC): 

LDA 1FFF | AD FF IF 

STA 1FFE | 8D FE IF 

Remember that the abbreviations to the left are only for our 
convenience in reading the program; the actual instructions are 
numbers, and the actual program is in the right column. 


BRK ( BReaK ) 

The last instruction we need is a simple one. If we do not in 
some way tell the microprocessor to stop, after it has executed the 
LDA and the STA it will attempt to fetch the next instruction from the 
next memory location in sequence (remember that the PC is 

automatically incremented as each byte is fetched). We don't know 

for sure what's in the next location - it may or may not be a valid 
instruction, and it might cause some strange results. So, we tell the 
computer to take a BREAK, and when it hits this instruction, the 
Apple will not only stop fetching instructions, but will print the 
location (+2) at which execution stopped, and the values currently 
stored in each of the five registers. When the Apple Monitor prints 
the location at which it stopped execution, the address is actually 
the address of the BRK instruction + 2, as though there had been 
an operand which took up 2 bytes (however, BRK has no operand). 
This is an oversimplification; many other things occur as well, but for 
now this is enough to worry about. The hex code for BRK is $00, 
and this code needs to be placed into memory in the next location 
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(which should be $0806, since you have already entered six data 
items beginning in $0800). Enter this code into memory, and then 
check the seven locations beginning at $0800 to be sure that the 

fc m 

correct code is there: 

* 0806:00 

* 0800.0806 

If there are any errors, correct them now. Before executing 
the program, examine the registers and record particularly the value 
stored in the A register. To execute the program, type: 

* 0800 G 

In the line above, the 0800 tells the computer the address of 
the first byte of the program. The G is for "GO" - similar to RUN in 
BASIC. 

That's it. Your first machine language program just used 
0.000015 seconds of CPU time. What results did you get? 
Remember, this program did nothing but manipulate values in 
memory. There is no output, as such. Note the value currently 
stored in the A register, and check the values in $1 FFF and $1 FFE. 
Remember that you initially placed $40 in $1 FFF and $00 in $1 FFE. 
Is the value now in the A register the same as the value before 
execution of the program? (Use the Monitor CTRL-E command to 
find out.) 

Let's summarize this program and how it was entered. 
Comments on the left are just that - they have no bearing on the 
program itself. This is a machine language program, and as such is 
composed entirely of numbers. The abbreviations are not part of 
the instructions at all, but serve to remind us of what the instruction 
codes represent. r 
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store value in $1FFF 
store value in $1FFE 


* 1FFF:40 

* 1FFE:00 


LDA from $1 FFF 
STAto $1FFE 


BRK and display 

registers 


* 0800:AD FF IF 

* 0803:80 FE 1 F 

* 0806:00 


$0800G 

/ \ 


* 0800G 


starting byte GO 


\ 


this is the first address to go onto the 
address bus 

So far we've only entered data and moved it around in 
memory. Next we will consider instructions which allow us to 
manipulate that data arithmetically. 
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Addition: More Instructions 

(So You Really Want Your Computer to Do 

Your Homework?) 


Now we're ready to write a program to add two numbers, and 

* 

as you probably expect, there will be quite a few things to 
remember. This is the time to review the paragraph on the P 
register if you don't remember much about it. We will be concerned 
with only one bit of that register (the C bit, in the ones place). This 
bit is referred to as the carry flag, because it tells us whether a 
previous addition generated a final carry. When we add two 
numbers by hand, we use a carry flag of sorts ourselves, and if there 
is a carry, we add it into the sum when adding the next column (the 
next higher place value) of numbers. For the most part, the 
computer adds as we do, adding lowest place values (low-order 
bytes) first, and keeping track of carries. There is one important 
difference, which you may recall from Session One. On the 
computer, it is possible to generate an overflow condition, which in 
this case means the sum was larger than one byte, and a final carry is 
lost to the bit bucket. Let's look at some examples of decimal 
arithmetic (to keep it simple) and consider what’s going on from the 
point of view of the computer: 


00 
47 
+ 22 


69 


01 
47 
+ 28 


75 


The "low-order bytes”, 7 and 2, were 
added. There was no carry (so the C bit 
is 0). The "high- order bytes", 4 and 2, 
and the carry, 0, were added. Again 
there was no carry, so the Carry Flag is 
"clear" (0). 

The "low-order bytes", 7 and 8, were 
added. There was a carry (so the C bit is 
1). The "high- order bytes", 4 and 2, and 
the carry, 1 , were added. This time there 
was no carry, so the C bit is now 0, and 
again, the carry flag is clear. 
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1 1 
99 
+ 99 





The "low-order bytes", 9 and 9, were 
added. There was a carry (so the C bit is 
1) The "high- order bytes", 9 and 9, and 
the carried 1 were added. Again there is 
a carry, the C bit is still 1 , the carry flag is 
"set", and we have an overflow 
condition. 


This overflow situation was encountered earlier when we were 
finding the two's complement of a number so that we could 
represent a negative number. When a number and its two's 
complement are added (except in the case of 0+0), the result is 
zero, but only because the final carry has been dropped in the bit 
bucket. Here's an example for review, given in decimal for 
convenience: 


11 

0 1 2-digit representation of 1 

+ 99 two’s complement of 1 


0 0 since 1 + 99 = 0, then 99 = -1 

Now we'll return to hexadecimal for an example. We'll consider 
the addition of two 2-byte numbers. Remember that in hex, it takes 
two digits to represent one byte, so this number will have 4 digits.. 
It's particularly important to remember that you must add the 
low-order bytes first (a nibble at a time when you're doing it by 
hand), then the high-order bytes plus any carry left from the addition 
of the low-order bytes. 


In the low-order addition, 4+D = 4+ 13 = 
1 7, which equals 1 one and 1 sixteen, 
so we put down 1 and carry 1 . The carry 
flag is set. 1+3+C = 1+3+12 = 16, so we 
put down 0 and carry 1 . The carry flag is 
still set. 


1 


0 

1 

12 

34 

+ AB 

CD 

BE 

01 
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1 1 


1 

1 

56 

78 

+FD 

EC 

54 

64 


The value of the low-order byte in the 
sum is just 01 . Now we begin adding the 
high- order bytes. 2+B = 2+11 =13, but 
since the carry flag is still set from the last 
addition, we must also add in the carry 
(1), so 13+1 = 14 = E. There is no carry 
from this addition, so the carry flag is 
"cleared", and we put down the E. 1+A 
= 1+10 = 11, and since the C bit now 
equals 0, we have no carry to add. 1 1 = 
B, so we put down B. The sum is 
$BE01 , and there is no overflow. 

In the low-order addition, 8+C = 8+1 2 = 
20, which equals 4 ones and 1 sixteen, 
so we put down 4 and carry 1 . The carry 
flag is set. 1+7+E = 1+7+14 = 22, which 
equals 6 ones and 1 sixteen, so we put 
down 6 and carry 1 . The carry flag is still 
set. The value of the low-order byte in 
the sum is 64. Now we begin adding the 
high-order bytes. 6+D = 6+13 =19, but 
since the carry flag is still set from the 
last addition, we must add in the carry 
(1), so 19+1 = 20; this equals 4 ones 
and 1 sixteen. We put down 4 and carry 
1. The carry flag is still set. 1+5+F = 
1+5+15 = 21, which equals 5 ones and 
1 sixteen. We put down the 5 and carry 
the 1 (the carry flag is still set). The sum 
is $5464, but this time we have had an 
overflow. 


We won't go into methods of dealing with an overflow at this 
point. Our purpose right now is to begin work on our ultimate goal 
of a "calculator" program, by developing a short machine language 
program which will add two 2-byte numbers. This means we must 
first learn two new instructions. 
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ADC ( ADd with Carry ) 

Obviously, we must be able to tell the 6502 that we want it to 
add two numbers, and we must in some way indicate which two 
numbers are to be added. We also want the computer to know that 
we want it to keep track of carries, and add them in where 
appropriate. The name of this instruction is ADd with Carry, and we'll 
abbreviate it ADC. Since arithmetic operations can only take place 
in the A register, to use this command, we must first LDA with one of 
the numbers we want to add, and then (as part of the ADC 
command), give the computer the address of the other number we 
wish to add. Since the address is a two byte number, and the 
command has a one byte code number, this is another "3-byte 
instruction", like LDA or STA. The ADC command adds two digits, 
checks the carry flag, adds in the carry if necessary, and updates the 
carry flag (sets the C bit of the P register to 1 if there is a carry from 
this addition, and to 0 if there was no carry from this addition). 

The code for ADC is $6D. To use this command, (assuming 
the values we wish to add are already in memory at locations $1 FFF 
and $1FFE), we first place one value in the A register with a LDA 
command ($AD) and the address of one of the numbers, and then 
add them using ADC ($6D) and the address of the other number: 

LDA from $1 FFE | AD FE 1 F 

ADC to $1 FFF | 6D FF IF 


This looks pretty good so far, and not even too hard. True! 
But there is one other consideration that we have not dealt with 
concerning this very convenient carry flag we've been using. What 
if the addition carried out most recently before our program is 
executed did generate a final carry that could not be added into the 

• • 9 

sum because of fixed precision? If we tell the computer to add with 
carry, it will! It doesn't care where the carry came from, it just knows 
it's there by looking at the C bit of the P register (the carry flag). 
We've got to find a way to tell it to start over. 
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CLC ( CLear Carry ) 

* . • " • 

So you'd like to clear out any old information in the carry flag 
before doing a new addition? Easy! The CLear Carry instruction 
does just that - sets the C bit of the P register to 0 (no carry). We will 
abbreviate this instruction CLC; its code is $18. Like BRK, it has no 
operand. (Technically, this is called "implied addressing".) 

* f v • • ( 

mm _ » • . 

Suppose, then, that we wish to add the numbers $34 and 
$CD. As in our previous program, yta must place those values into 
memory ourselves, using the Apple Monitor, and use the 
addresses of the locations in which we stored the numbers as 
operands for some of the commands in our program. Let's store 
$34 in $1FFE, and $CD in $1FFF. Then we'll want to clear the carry 
flag (CLC), load one value into the A register (LDA), add the second 
value (ADC), store the result somewhere (STA), and take a BReaK 
(BRK) to prevent the computer from attempting to fetch another 

instruction. We'll store this program at the same starting point as our 

• • % • • 

last one, not because a program can't be stored elsewhere (it 
certainly can), but to keep things as simple as possible. Turn on 
your Apple, enter the Apple Monitor, and enter the program (as 
usual, the comments to the left are ool part of the program - they are 
there just to make it easier for us to read the program and see what 
is, or should be, happening): 


store value in $1FFF | 

* 

1FFF :CD 


store value in $1FFE j 

1 

* 

1FFE :34 


CLC | 

* 

0800 :1 8 


LDA from $1FFF | 

* 

0801 :AD FF 

IF 

ADC to value in $1FFE | 

* 

0804 :6D FE 

IF 

STA in $1 FFD 1 

* 

0807 :8D FD 

IF 

BRK | 

* 

080A :00 

9 

• • " | 

run the program | 

* 

• 

0800G 

• 


When the program terminates, check to see whether the 
value in the A register is what you expect. Also, use the Apple 
Monitor to open windows to $1 FFD, $1 FFE, and $1 FFF to see if the 
values there are as you expected. (Yes, this means you'll have to 

6 m m m • " 
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figure out the sum yourself! Be sure to determine whether there 
was a final carry.) The solution is in a previous example. 

Before we expand this program to enable it to add 2-byte 
numbers, it might help to have a few hints as to how to read the P 
register and see if the carry flag is set. If it is, the C bit (in the ones 
place) should equal 1 . The value in the P register is printed in hex, 
however, so we need to know which hex digits indicate a 1 in the 
ones place. There are at least 3 easy ways to do this: 

1 . Look at your list from Session One 

2. Write out the binary representations of the numbers from 
$0 to $F 

3. (We saved the best for last.) Think about the binary 
numbers for a minute. All of the place values are even, except 
for the ones place. That means that if the ones digit is 0, the 
number is even, otherwise it's odd. So, if the ones place of 
the P register is an odd number, the carry flag is set! 

At last! We are finally ready to add two-byte hex numbers. 
The program will be almost the same as the last one you ran, with a 
few critical differences: 

1 . We will clear the carry before adding the low- order bytes (to 
avoid a stray carry from a previous addition), but npl before 
adding the high-order bytes. We need the carry from the 
low-order addition to get a valid sum. 

2. We will have to do two sequences of LDA, ADC, STA: one 
for the low-order byte addition and one for the high-order byte 
addition. 

3. We will need to be careful when storing our data in memory 
before we begin - these are 2-byte numbers, but we want to 
add the low-order bytes first, so it will be most convenient if 
we store them with the bytes reversed, as discussed earlier. 
Pay particular attention to the addresses used in the example 
which follows. 
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4. This is not critical, but merely a convenience - in the 
example, we will be storing our program and variables in a 
different place in memory, not because we can't use the 
memory at $0800, but to allow you to keep both programs in 
memory at the same time in case you'd like to go back and 
rerun the first one (the 1-byte addition). If you've turned your 
computer off since you ran that program, and have not 
re-entered it, then it's too late for you to rerun your earlier 
program. You'll have to re-enter it if you want to have both 
available. 


Now for the big program! Here's the plan. We will store our 
data beginning at $2000. The first number will occupy $2000 and 
$2001 . The second number will occupy $2002 and $2003. We'll 
store the sum in $2004 and $2005. Our program will begin by 
clearing the carry flag, then load and add the low-order bytes (from 
locations $2000 and $2002), and store the low-order byte of the 
sum in $2004. Without clearing the carry flag, we then load and add 
the high-order bytes (from locations $2001 and $2003), and store 
the high-order byle of the sum in $2005. As usual, we end with a 
BRK. To make life easy for this example, we'll choose easy 
numbers: let's add $0001 and $0002. The sum should be $0003, 
and we won't have to worry about overflow (but be sure to check 
the P register after the program runs to be sure about the value of 
the C bit). One last hint, and you're off: when entering the data into 
memory, enter it low-order byte first ! This is shown in the example 
below, but it's important that you understand that we are doing this 
so we can add low-order bytes first. The data could be entered 
high-order byte first, and we could change our program slightly to 
handle this, but there's no point in making things harder than they 
have to be. We will be developing a structured programming style 
as we go along, and this is part of it. (You might object that we 
should store numbers in memory the same way we write them if we 
want to keep it simple. Remember, though, that the address in an 
instruction must be stored in reverse order - it's too late to change 
the 6502! So we stick to the convention used by the CPU.) 
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store value in $2000 & $2001 
store value in $2002 & $2003 


* 2000:01 00 
* 2002:02 00 


CLC 

LDA from $2000 

ADC to value in $2002 

ST A in $2004 

LDA from $2001 

ADC to value in $2003 

ST A in $2005 

BRK 


* 900:18 

* 901 :AD 00 20 

* 904 :6D 02 20 

* 907 :8D 04 20 

* 90A:AD 01 20 

* 90D:6D 03 20 

* 910:8D 05 20 

* 913:00 


run the program starting at 
$900 


* 900G 


Look at $2004 and $2005 after the program has been 
executed to be sure the correct values are stored there. 


A comment should be made about the sequence of 
addresses of memory locations in which this program is stored. You 
might have trouble remembering that we are counting in hex, and 
become confused by the line in which addresses begin at $90A, or 
the line in which addresses begin at $910. If you're confused, this 

chart of addresses, arranged to correspond to the bytes stored in 
each line, may help: 


$ 900 

• 


901 

902 

903 

904 

905 

906 

907 

908 

909 

90A 

90B 

90C 

90D 

90E 

90F 

910 

913 

911 

912 


In hex, A stands for 10, so 
$90A must follow $909 
F=15, so the next number is 
16; put down 0 and carry 1 


To disassemble the program, you can type 900L from the 
Apple monitor. To find out what "disassemble" means, try it. We will 
not be going into detail about disassembling programs at this time, 
but you might like to try to figure out what you've got. 
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PROBLEMS 


2.1 . Add $3D40 and $00FA. Store data beginning at $900 and 
your program beginning at $1000. 

2.2. Add $01 9A and $F004. Store data beginning at $845 and 
your program beginning at $855. 

2.3. Add $F903 and $0D87. Store data beginning at $25FA and 
your program beginning at $2999. 


Check your work by adding the numbers by hand. Be 

with addresses. These problems have been set 
up to give you lots of practice in counting correctly in hex. 






57 



Session 2 Summary 

Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list) a machine language program 
read memory 

set (enter values into) memory 
Assembly Language Instructions 


ADC - 

add with carry 

BRK - 

break 

CLC - 

clear carry 

LDA - 

load A 

STA - 

store A 


Addressing Modes 

absolute 

implied 


Processor Status Flags 

C - carry flag 
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SESSION THREE 

Assembly Language 

(The Right Stuff) 


Assembly Language Source Code Format 

(Have You Paid Your Syntax?) 


The time you've all been waiting for has arrived! We are about 
to start learning assembly language, based on what we've already 
learned about machine language. The main advantage of assembly 
language over machine language is its readability by humans; after 
writing even the short programs of Session Two, you're probably 
more than ready for something that doesn't require a magic decoder 

ring to figure out. 

You've probably also surmised that there was a method in our 
madness when we made up the abbreviations for machine 
language instructions. Of course you're right - we chose 
abbreviations which correspond to the mnemonic names of the 
same instructions in assembly language. The hex numbers which 
were the instruction codes are called operation codes, or op codes, 
so a mnemonic is a name for an op code. Most people use the 
word op code to refer to the abbreviation as well, so we'll conform to 
that practice (even if it's not rigorous, or formal, or any of that other 
stuff). While you don’t have to study the word mnemonic for a 
spelling test later, you should know it, because it will show up in 
many reference books, programming texts, users' manuals, and so 
forth. The mnemonic, or op code, is one part of an assembly 
language source code line. 

Assembly language op codes also have operands, as do 
machine language instructions. Just as with machine language, the 
operand may be a two byte hexadecimal number, or, as with CLC 
and BRK, may not be required. (Later we will find that these are only 
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two of many formats for an operand.) The operand is the second 
part of the source code line. 

Another (not always required) part of an assembly language 
source code line is the label . This is similar to a line number in 
BASIC (or a label in Pascal), and allows you to use the assembly 
language equivalent of a GOTO. The assembly language 
equivalent of a GOTO, which we won't discuss fully at this point, is a 
JMP (jump). It needs an operand telling it where to jump to. We can 
use a label as the operand for a JMP instruction. When it occurs, a 
label precedes the op code. 

The last (and entirely optional) part of an assembly language 
source line is the comment . Any guesses? 


Up until now, you’ve been able to get along with scratch 
paper, a chewed off pencil, a stripped-down Apple, and no 
software. Sorry, folks, the good old days are gone. From now on, 


you will also need a disk drive and an ORCA/M or ORCA/EZ 
Assembler (ORCA/EZ is on the disk that came with this book). For 
those who thought they were doing the assembling, it's time to 
clear up that misunderstanding. An assembler is a program which 
has the same relationship to assembly language as a compiler has 
to a language like Pascal, or an interpreter to BASIC. Although 
assembly language is very close to machine language, it's not close 
enough. An assembler is required to bridge the gap by translating 
that easy-to-read assembly language code into the appropriate bits, 
bytes, and nibbles for your Apple to digest. While there are other 
assemblers available, this manual concentrates on ORCA/M and 


ORCA/EZ, and because of differences among assemblers, much of 
what it says from here on out will not work with other assemblers 
without minor modifications. (Of course, there is the little matter of 
our highly prejudiced, but nonetheless expert, opinion that ORCA 
is the best assembler available today for the 6502, and we want you 
to have the best.) For the rest of the manual, we will use the term 
ORCA to refer collectively to both assemblers. 


The general syntax of a source line in ORCA is shown below. 
Detailed descriptions of the syntax for each of the four fields 
follows. 
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SYNTAX: 

- 


. 

label 

opcode 

operand 

comment 

LB1 

LDA 

• 

$2000 

load A from $2000 

% 


LABEL FIELD 


Not all source lines need a label, but as we develop concepts 
of structured assembly language programming, we’ll find that many 
lines wi!! have labels. The label, if it exists, must : 

> start in column 1 

> begin with an uppercase alphabetic character 

> be made up of only uppercase alphabetic and 

numeric characters 

> have a maximum of 1 0 characters 

> have no embedded blanks 

> on ORCA/M (versions 3.5 and later), lowercase 
letters and underline characters are also valid 


If, at any point or points in your program, you are going to want 
to branch to a particular line, that line should have a label. This label 
will be used (as mentioned above), as the operand for instructions 
such as JMP (jump). Using a label in this way is equivalent to using 
the address of the instruction it labels (yes, you could use the 
address of the instruction as the operand for the JMP). As with 
variable names in high-level languages, it is a good idea to have 
meaningful labels (that is, labels which indicate the purpose of a 
line). BEGADD might be a good label for a line which begins an 

addition. 

As a point of style, 6-character (or fewer) labels are routinely 
used in the ORCA/EZ Assembler, even though 10-character labels 
are permitted, to standardize code so that it will fit on a 40-column 
screen. This practice will be adhered to in this manual as well. 





One of the chief advantages of using labels over using the 
address of an instruction in a program is that of ease in updating or 
modifying the program. If a line must be added to, or deleted from, a 
program, and particular instructions have been referenced by 
address in a JMP or similar instruction, the program would have to 
be updated by hand to reflect the new address of the instruction 
we wish to branch to. When an instruction is labeled, and a JMP 
instruction has that label as its operand, the assembler will look up 
the label in a symbol table, and go to that instruction, without any 
other action on the part of the programmer. When the program is 
executed, the assembler will list the location jumped to. 

Although we will not go into detail about addressing modes at 
this time (we will learn different addressing modes gradually), you 
need to be aware of the fact that using the single letter "A" as a label 
could cause confusion with the 
Avoid possible confusion: don't use "A" as a label. 



Before going on to the op code field, let's consider a few sample 
labels. Those which are invalid are indicated, with an explanation of 
Why they are not valid: 


FIRSTADD 

FIRST ADD 

FIRSTADDITION 

ADD1 

1ADD 

ADD$ 


LONGLABEL 

1750 

Q 

label 1 


invalid - embedded blank 
invalid - 13 characters 


invalid - numeric character first 
invalid - $ is neither alphabetic 

nor numeric 


invalid - numeric character first 


invalid - lowercase characters 
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OP CODE FIELD 


All source lines, with the exception of purely comment lines, 
must have either an instruction mnemonic or an assembler directive 
in the op code field. (In ORCA/M, a macro may also be placed in the 
op code field.) The following conditions must be met (whether op 
code or assembler directive): 


> it may not start in column 1 

> an op code is always 3 uppercase alphabetic 
characters long 

> assembler directives are two to eight uppercase 
characters long 

> at least one blank space must separate the label 
(if any) and op code or directive 

> it must begin by column 20 

If an op code or assembler directive were placed in column 1 , 
the assembler would treat it as a label. While LDA, for example, is 
not an invalid label, it is usually wise to avoid any possible confusion 
between labels and mnemonics by choosing labels which differ 
from any mnemonic or assembler directive code. 

Just as it is standard form to use 6-character labels, it is 
customary (when using ORCA/EZ) to begin the op code in column 
eight. This facilitates listing on a 40-column screen. 


OPERAND FIELD 

• • 

The operand field may or may not be filled, depending on the 
nature of the instruction. Some op codes require operands: others 
do not. If the op code does not require an operand, this field will be 
ignored. (In ORCA/M, some macros have optional operands). The 
format to be followed for the operand field depends on the op 
code, so discussion of format within the operand field will be 
delayed until individual operands are discussed. Entries in the 
operand field must, however, conform to the following: 
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> may have more than one term ($2000+4) 

> may not have embedded blanks 

> at least one blank space must separate the op 
code or assembler directive and operand 

> if the operand begins after column 20, there must 
be exactly one blank space between the op code 
or assembler directive and the operand 

> hex values using the letters A-F must use 
uppercase letters 

Be careful about column 20 and spaces between op code and 
operand. Unless an op code extends beyond column 18, the 
assembler won't look beyond column 20 when it tries to find the 
beginning of an operand field. Usually, the operand will begin in 
column 14 (again, to enable a 40-column screen to handle listings). 


COMMENT FIELD 

. • 

Comments are particularly important in an assembly language 
program. Although more readable than a machine language 
program, assembly language programs are still harder to follow than 
those written in high-level languages. It is extremely valuable to 
indicate the beginning of subroutines, document the purpose of 
various sections of code, explain important source lines, and 
separate sections of code with blank lines to improve readability. 
When a comment is the last field of a source line, the following must 
be observed: 

> if there is an operand, there must be at least one 
space between the operand and comment 

> if there is no operand, there must be at least one 
space between the op code (or assembler 
directive) and comment 

> if the operand is optional, the commentmay not 
begin before column 21 (this applies only to 
macros) 

> may use both upper- and lowercase letters 
(comments are CASE INSENSITIVE) 

It's a particularly good idea Qfil to begin comments before 
column 21 of a source line. This is partly a matter of style, to keep 
comments lined up for ease in reading. In the case of an optional 
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operand, a comment may not begin before column 21 , because if 
the comment should happen to look like a valid operand, the 
computer will assume that you chose to use the operand, and the 
results could be unique, to say the least. It will also be hard to find 
the error, since the assembler may not have any idea that there is an 

error. 

* 

Blank lines are ignored by the assembler, but are printed as 
part of a source listing. Use them to separate blocks of code and to 
improve readability. If you need an entire line for comments, place 
any one of the symbols 


in column 1 , and the assembler will ignore the line, but still print it in 
a source listing. We will deal with program documentation in more 
depth later in this session, and throughout the book. 

One last hint for comments: plan on not going past column 59. 
The assembler needs 21 columns for itself for listings, so although 
there are 80 columns available on most printers, if you use more 
than 59, there can be some wraparound problems. 

As we discussed each field of the source line, "standard" 
starting columns for each field were mentioned. These are so 
commonly used that the editor has default tab stops at column 8 (for 
the op code), column 14 (for the operand), column 21 (for 
comments), and one at column 59 to prevent you from encroaching 
on the assembler's territory. We will spend a lot of time, both in this 
session and in the next, becoming very familiar with the editor, so 
you don't have to worry about tab stops now. However, you should 
get into the habit of writing code in a standard format unless there is 
a good reason for not doing so. 


I 
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A comment is also in order about instructions and assembler 
directives. Both go in the op code field, and you will have one or 
the other, but not both, on each source line except lines which are 
purely comments. An op code stands for an instruction which will 
be converted by the assembler into machine language and stored 
in memory. It tells the computer what to do. An assembler directive 
tells the assembler what to do - it doesn’t usually show up in the 
machine language program. (Some directives are used to define 
data, which does go in the program.) This is an important distinction, 
and will become clearer as we work with both op codes and 
assembler directives in writing programs. 
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Getting Our Program Ready for ORCA 

* 

(Can't I Run It Yet?) 


The program that we wrote at the end of Session Two is not 
yet ready to run under ORCA. At a minimum, it is missing three 
assembler directives which are necessary before it can be executed 
under ORCA (you could get by without one of the directives if 
you're using ORCA/M, but you might as well learn it -- you know -- 
style, and all that) . 

Turn back to Session Two for a minute, and look at the sample 
program we were working on. Compare it to the program below. 
We'll discuss each of the assembler directives in detail later, but for 
now, pay attention to their placement in the program. Note also the 

9 * _ 

syntax of each source line. The numerals above the program are 
not part of it, but ought to help you keep track of the column in 
which each field begins: 

1 2 3 4 5 6 

1 2345678901 2345678901 2345678901 2345678901 2345678901 234567890 

• • • • 

KEEP PROGI.OBJ.VIOO save program 
PROG1 START beginning of program 

0 • • 9 • 

CLC clear carry before starting 

LDA $2000 low byte add 
ADC $2002 
STA $2004 

LDA $2001 high byte add 
ADC $2003 
STA $2005 
BRK 

END stop program 
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Note that we've maintained uniform spacing even when we 
could have squeezed things together. A blank line sets off the 
body of the program. It does not need a comment character, 
because it is entirely blank. Short comments in the comment field 
serve to identify the three assembler directives in use, and to 
identify blocks of code by function. (Normally, it is not a good 
practice for comments to say what an instruction does, as "stop 
program” does for the END directive. After all, anyone who can read 
assembly language would know that, anyway. We do it here 
because you don't know assembly language yet - the practice will 
gradually decrease throughout the book.) Now we'll take a look at 
these three assembler directives, and see what each does for us. 

9 


KEEP 

The KEEP directive tells the assembler to save the object 
code to disk. Object code is the code generated by the assembler 
from your source file, which you create using the text editor (we'll 
introduce you to the editor in the next section). ORCA/EZ is 
entirely DOS compatible, which means you don't have to do 
anything weird to your disks, and you'll be able to use commands 
like DELETE, RENAME, LOCK, etc., under ORCA. As with DOS, 

be sure you've initialized a disk before attempting to have the 
assembler write a file to it. 

One thing that most people ignore when initializing disks is 
the volume number. One reason for using volume numbers is so 
that a program, such as an assembler or compiler, which uses 
multiple disks, can tell those disks apart. By specifying a volume 
number (in the same way that you might specify a slot or drive 
number), you could set up your program to be sure everything was 
run in the right order. With ORCA/EZ, you should always use a 
volume number in the KEEP directive. It's OK to use the default 
volume number, 254, that DOS puts on a disk when you initialize it. 
Another important note of caution here - always have a disk in every 
drive when using ORCA, and make sure that each of these disks 
has a different volume number. The operating system will look for 
the volume number you specify. If it doesn’t find this volume in the 
drive presently in use, it will search every drive available, trying to 
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find the specified volume. If there is a disk in every drive (and a 
chicken in every pot), and it still can't find the volume it wants, it will 
say "Place Volume (number) Online" and wait for you to press a key 
indicating that you've done so and are ready for it to begin the 
search anew. On the other hand, if there is a drive with no disk, 
when it tries to search that drive, you'll get an I/O error, which is 
terminal (no pun intended). Everything grinds to a more or less 
screeching halt (depending on the age and health of your disk 
drive) and you get to start over. 

If you are using the ProDOS version of ORCA/M, the second 
part of the operand is not used, since ProDOS does not allow 
volume numbers. Everything else works in the same way for both 
ORCA/EZ and ORCA/M. 

There are several other very important things to remember 
about KEEP. First, it must have an operand, which will have two 
fields within it: the filename under which you want the file saved, 
and the disk volume on which you want the file saved. The filename 
may have qq commas, and if it has any embedded blanks, you must 
enclose the filename in single quotes. Because of this use of 
single quotes, if the filename itself must have a single quote in it, 
you'll have to type two single quote marks. Filenames may begin 
with uppercase alphabetic or numeric characters, and may contain 
non-alphanumeric characters. All alphabetic characters must be 
uppercase. For the time being, it's probably best to stick to simple 
filenames with no apostrophes or blanks. There is also one 
filename which you may nol use. This reserved filename is used by 
the system - SYSFIRST. (You'd probably never think of it, but you 
deserve to be forewarned). Here are some examples of valid and 
invalid filenames. Each invalid filename is followed by an 
explanation of why ft is invalid. 
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MYFILE valid 

MY FILE invalid; contains an embedded blank, but is 

not surrounded by single quotes 

'MY FILE valid 

'FRED'S FILE’ invalid; an apostrophe within a filename must 

be represented by two single quotes 

'FRED"S FILE' valid 

FILE, FRED invalid ; a filename may not contain a comma 

123SKIDOO valid 

FILE1 valid 

*!?!@" invalid; begins with a non-alphanumeric 

character 

RATS!*?!@** valid 

Fred invalid; contains lowercase alphabetic 

characters 

Another thing to remember about KEEP is its placement in 
the program. It must be the first line of your program, unless you 
are using the PRINTER ON directive (more on that in a minute). 
Then, and only then, you may put KEEP as your second line. 
There should not be more than one KEEP in your program, and it 
must come before the START directive if you are to avoid the 
embarrassment of an error message. If you put in more than one 
KEEP, or place the KEEP after the START, you'll get a "Misplaced 
KEEP” error. 

One last word of caution - the KEEP command will write over 

* 

any existing file to save the program that the assembler creates. It 
may seem obvious that you should not use the same name in the 
KEEP command’s operand as the name you use to save the source 
code on disk, but this is very easy to do! 
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START 


The START directive identifies the beginning of a program 
segment and must be used at the beginning (but not before KEEP) 
of the main program, and at the beginning of all subroutines. It must 
have a label (usually the name of the program or subroutine), 
because a subroutine may be called by any program segment, 
including itself (a recursive call), and the name of the label is the 
means by which it is called. In our earlier discussion of JMP, we said 
that the operand could be a label or an address - here is a prime 
example of the use of a label . 

If you fail to include the START directive, you will receive the 
error message, "Missing START". 


END 

The END directive identifies the end of a program segment 
and must occur at the end of the main program and all subroutines. 
It has no label. Failure to include an END at the proper point will 
result in a "No END" error message. The lack of an END can cause 
symbol table overflow and other nasty things that we won't worry 
about at the present time (you can worry about it later, when you 
know a little more, if you really like to worry). 


The requirement that all program segments be delimited by 
START and END is to encourage structured programming 
techniques, where a program is broken down into small, well 
defined modules. As we continue learning assembly language, we 
will also be learning modular program design. Those of you who 
program in Pascal have an advantage over those who have only 
programmed in BASIC. If you are a BASIC programmer only, you'll 
need to pay particular attention to discussion of structured 
programming techniques. While you can write a structured program 
in BASIC, the language actually encourages unstructured 
programming because of its forgiving nature, and the liberal use of 
GOTOs in most BASIC programs. 
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PRINTER ON 

• * 

The PRINTER ON directive (PRINTER is the directive, ON is 
the operand) was mentioned earlier as the only thing that should 
ever precede START. Since it is outside a subroutine if it occurs 
before START, it may not have a label (a label is meaningless unless 
it is inside a program segment of some sort). PRINTER ON sends 
the program l isting , not the output, to the printer. This directive 
expects an eighty-column printer with interface card in slot 1. It is 
possible to reconfigure the operating system if you have a different 
set-up. Use the monitor command, OPTIONS. (See the reference 
manual for details). The printer listing is the same as a screen listing, 
except that each line has a line number, and PASS messages are 
not printed (you don't know what PASS is, right? Good - you won't 
miss the messages). 


EQU 

Here's one you weren't expecting. Suppose that you wish to 
use a program to process several sets of data. Since the data are in 
different locations, this could mean writing essentially the same 
program, over and over, with changes in the addresses of the data. 
What a pain! There is a way to avoid "hard-coding" operands which 
are addresses that you might want to change frequently. This is 
done by defining a constant, and then using that constant as the 
operand. If you want to change the constant, you change a single 
line - the operand stays the same. It's easiest to see with an 
example, so after we explain this directive, we'll look at the same 

program we've been wording on, modified to make use of it. 

* 

The equate (EQU) directive defines a symbolic constant. It 
assigns the value of its operand to a label, which can thereafter be 
used as an operand in place of that number. In other words, it gives 
a name to a particular numerical value, and the name is used instead 
of the number in the rest of the program segment. Because of the 
way equates are handled by the assembler, it is best to define them 
all at the beginning of the program segment (but nfll before 
START). As we learn more about how the assembler does what it 

does, you’ll see why this is necessary. See Listing 3.A for the 

• * 
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] 

ORCA/EZ 1.0 






0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0801 

0804 

0807 

080A 

080D 

0810 

0813 

0814 


18 

AD0020 

6D0220 

8D0420 

AD0120 

6D0320 

8D0520 

00 


PRINTER ON 

KEEP PROG 1. OBJ, VI 00 

**************************************** 
* * 

* LISTING 3. A * 

* * 

* SECTION 3*2 EXAMPLE PROGRAM * 

* * 

* THIS PROGRAM DEMONSTRATES THE USE * 

* OF EQUATES WHEN ADDING 2 TW0-BYTE * 


* NUMBERS. 


* 

* 



* 

* inputs: 


* 

* 

NUM1 - 

FIRST NUMBER TO ADD * 

* 

NUM2 - 

• SECOND 

NUMBER TO ADD * 

* 



* 

* OUTPUTS: 


* 

* 

NUM3 - 

■ SUM OF 

NUM1 AND NUM2 * 

* 



* 

**************************************** 

PROG1 

START 


■ % 

NUM1 

EQU 

$2000 

FIRST NUMBER TO ADD 

NUM2 

EQU 

$2002 

SECOND NUMBER TO 

i 

■ « 



ADD 

NUM3 

EQU 

$2004 

SUM 

• 

CLC 


CLEAR CARRY 


LDA 

NUM1 

ADD THE LOW BYTES 


ADC 

NUM2 

• ► 


STA 

NUM3 



LDA 

NUM1+1 

ADD THE HIGH BYTES 


ADC 

NUM2+1 



STA 

NUM3+1 



BRK 


QUIT 


END 


• 


Local 

Symbol Table 

• # . 


NUM1 

2000 NUM2 

2002 NUM3 

2004 


Global Symbol Table 
PROG1 0000 





finished version of our program, as listed to the printer by the 
assembler. 

Notice how the use of a blank line sets apart the data 
definitions from the instructions. The comments clarify what is 
going on. The block comment at the top of the program is placed 
after the KEEP and before the START. Note that the first character 
on each line is a comment character. This is an example of good 
program documentation. The name and purpose of the program 
segment are clearly stated. Input and output labels are listed and 
defined. This is sometimes called a "variable dictionary". As your 
programs grow in complexity, so will your documentation. 

The second important thing about this program is that no 
numerical addresses were used as operands in the body of the 
program. Labels (which define constants through the use of 
equates) are used instead. If we wish to change the data to be 
added, we change only the addresses used as operands of the 
EQUs, instead of changing the addresses in all six lines beginning 
with the first LDA. Work on trying to use labels, rather than 
numbers, as operands in the body of a program segment. It's hard 
at first, but it makes for a much more readable and more easily 
modified program. 

Finally, we should point out that the first 21 columns of 
information were printed by the assembler, not entered in the 
editor. The meanings of these columns will be covered later, but an 
experienced machine language programmer like yourself might 
enjoy figuring them out beforehand. 
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A Cook's Tour of ORCA/EZ 


(Whale Stew, Anyone?) 


Now can we run the program??? Almost. Any minute now. 
We will need to use the text editor to create the source file for our 
program, and then we can run it. How do we use the editor? How 
do we run the program? We need to take one last detour and 
become acquainted, on a limited basis at least, with the editor and 
monitor of ORCA (yes, ORCA has its own monitor, which is very 
different from the Apple Monitor). 

You may want to refer to the diagram as we discuss the 
organization of ORCA. As you can see, ORCA/EZ is really four 
programs in one. (For those of you who are using ORCA/M, the 
ORCA/EZ Assembler does not have a link editor or macros, so there 
will be no discussion of these here. Refer to your ORCA/M 
documentation if you're curious. You'll be able to do all the things 
we're doing with ORCA/EZ, and where there are minor differences, 
we'll briefly describe the variations.) One difference between 
ORCA/EZ and ORCA/M is that in ORCA/EZ, the monitor, editor, and 
assembler are all co-resident, whereas in ORCA/M the assembler is 
not in the computer at the same time as the monitor and editor, and 
you have the link editor and macros as well. 
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At the top of the diagram is the operating system, which takes 
care of all the details of helping the other modules talk to each 
other. It is the monitor which allows you to CATALOG a disk, SAVE 
a file, LOAD a file, enter the editor, and best of all, ASSEMBLE a 
program (ASML, for assemble and link, if you have ORCAM). We 
will not even try to explore all the capabilities of the monitor and 
editor at this time, but we will go through enough commands in each 
to enable you to create a source file (enter your program), edit it 
(which you can avoid only if you're a perfect typist), and assemble 
and run your program. 

Before going any further, it would be a good idea to stop and 
make a back-up copy of the ORCA/EZ disk. As you learn assembly 
language, you will learn many wonderful ways to crash your system. 
It would be unfortunate to crash your only copy of the assembler at 
the same time! The ORCA/EZ disk is not copy protected, so you 
can use any copy program that will copy the entire disk. PLEASE - 
only copy the disk for back-up purposes! 

Before you can use either the monitor or the editor, you must 
first enter the monitor. So, put the ORCA disk into your disk drive 
and turn on the computer. Eventually you'll get the ORCA prompt 
(#)and a cursor; you're now in the monitor. Type the command 
HELP (unavailable to ORCA/M users) and you'll get a list of 
commands for the ORCA/EZ Assembler. 

Commands such as SAVE, CATALOG, LOAD, DELETE, 
LOCK, etc., behave just like their DOS counterparts. One small 
difference is that every command must be followed by a blank. You 
can still use a comma before slot and drive parameters if you wish, 

but the comma must be preceded by a blank. For example, 

» • • • • • 

CATALOG D2 
or CATALOG ,D2 

will work fine, but 

• * w m 

CATALOG, D2 

• * 

gives an error. The DOS command boots a disk in slot 6, drive 1 . 
Depending on the disk in that boot drive, you may end up in 

Applesoft, ORCA, or somewhere else. 

J ♦ 


THE ORCA/EZ EDITOR 

Our first order of business, then, is to get the program 
entered. To do this, we must enter the editor. There are two ways 
to do this, and you should do nothing until you read about both 
commands. (These are monitor commands, not editor commands. 
You can type them whenever you have the # prompt of the ORCA 
monitor.) 


NEW 


If you type NEW (which is a monitor command to get you into 
the editor), your workspace will be cleared, just as it is with the 
BASIC command, NEW. Any program in the workspace will be 
dumped. If you already have your program in memory and want to 
edit it, dool type NEW, or it's "bye, bye program”. (You’ve probably 
done this to yourself in BASIC a few times - we hope you've learned 
your lesson). 


EDIT 


If you wish to edit a program already in your workspace, type 
EDIT. This command also puts you into the editor, while preserving 
your edit buffer. The reason you don't want to use EDIT exclusively 
and forget about NEW is the same reason you don't just sit down in 
BASIC after you boot up, and type a program in without clearing 
memory in some way. You have no way of knowing what's lying 
around in your workspace, and cleaning the garbage out of your 
source code after you write it is likely to be a lot more trouble than 
clearing it out before you start. 


EXIT (CTRL-Q) 

Of course, there's always the chance that you'd like to get 
back out of the editor some day. Type CTRL-Q to exit (remember Q 
for Quit). 
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The ORCA editor is a screen editor, not a line editor like the 
one you may be used to in Applesoft. You can move the cursor all 
over the screen and make changes anywhere you want. You are 
not confined to correcting one line at a time, or even to entering 
one line at a time. Enter the editor by typing NEW, and let the fun 
begin! Experiment with commands as they are explained. When 
you are ready to clear everything out and type in your program, type 
CTRL-Q to get out of the editor, and NEW to clear your workspace 
and get back into the editor. 


RETURN 


The first thing we should tell you is that the RETURN key has a 
vastly different function than in Applesoft. When entering a line of 
BASIC code, you must type in the whole line and then press 
RETURN, which enters the line into memory 
entering things into memory as you go, and the 





If you want to type in your program a column 
at a time instead of a line at a time, go ahead! It's not convenient, 
but it can be done. 


The next thing you need to know, if you haven't already found 

out, is that you type a character at the position of the cursor (which 

makes sense). If you get to the end of a line and try to keep typing, 

the cursor won’t move. You'll just have to move it to the next line 

yourself (RETURN sounds like a good idea here), and go on typing 
from there. 

• • • • 

TAB 


You dfi remember that we told you the editor has tab stops at 
the default field positions (columns 8, 14, 21, and 59), don't you? It 
also has tabs every 8 columns past column 21 . The stop at column 
59 is the one where the cursor won't go beyond end-of-line. There 
actually is a way to get around this, but we won't confuse you with 
the facts just yet. To use these tab stops, press the TAB key 
(CTRL-1 on computers without a TAB key) to tab from your present 
position to the next stop on the same line. 
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DELETE A LINE (ESC-Y) 

» • • 

To delete a whole line and move the lines below up to their 
new position, the cursor must be on the line you wish to delete. 
Then type ESC-Y. To get out ot the ESCAPE mode, you must 
press a NON-ESCAPE key. Because there are many escape keys 
we won't be discussing yet, the safest thing to do is press the space 

bar or RETURN when you want to exit the escape mode. 

* • 

INSERT A LINE (ESC-B) 

To insert a line of text, position the cursor on the line below 
where you want to put new text. Then type ESC-B, and exit the 
escape mode as before. Now type in your new text. 


CURSOR MOVEMENT (ESC-I,J,K,M) 

Cursor movement is accomplished with ESC-I (up), ESC-J 
(left), ESC-K (right), ESC-M (down), as in BASIC, or with the arrow 
keys. If you use the ESCAPE keys, don't forget to exit the 
ESCAPE mode when you've finished moving the cursor. You can 
scroll the screen up and down with these cursor movement keys, 
but you cannot violate the margins. If your computer has up and 
down arrow keys, they will work, too, as will the left and right arrows. 
The arrow keys work in either the ESCAPE mode or the EDIT mode. 


The six ESCAPE keys we've discussed are editor commands 
only . You must enter the editor to use them - they don't work from 
the monitor. Whenever you're in ESCAPE mode, the notation 

• • • 

»> ESCAPE «< 

- • < 

• 6 

will appear at the bottom of your screen. 

• • • 

If you haven’t been trying these things as they were 
explained, you should go back to the beginning of the editor 
section and do so. 
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When you've finished playing, er, experimenting, exit the 
editor with CTRL-Q, then clear your workspace and re-enter the 
editor with NEW. Now enter the program shown in listing 3. A (in the 
last section), fix your mistakes, and we're ready to go. Don't type in 
the first line (PRINTER ON) unless you want the listing to go to the 
printer, and the printer itself is turned on. Exit the editor again 
(CTRL-Q). If you want to save your source file, use the SAVE 
command by typing SAVE followed by a file name, PROG1 , for 
example. Before you ASSEMBLE your program, be certain that 
you have disks in all drives, and that one of them has the volume 
number specified in your KEEP directive. If all you have are disks 
that say volume 254, change your KEEP directive to conform to 
this. Disks must be initialized under DOS - uninitialized blanks won't 
work. Again, be sure that all of the disks that are in drives when the 
assembler is running have different volume numbers. 

Now we're ready to assemble the program, which is eqI the 
same as running it. The command is ASSEMBLE. 

OK! Do it! ASSEMBLE your program (ASML on ORCA/M). If 
you've turned your printer on, you'll have a copy of what happens. If 
not, look fast! (Check your CATALOG. You should have a binary 
file with the name specified in the KEEP directive.) 

If you had any error messages during the assembly, look 
closely at the lines that the errors occurred on. Check them against 
the listing given a couple of pages back. After fixing the problems, 
reassemble the program. (To stop the listing in the middle, just 
press any key. Pressing any key again will restart it. You can also 
slow the listing down with your game paddle or joystick.) 
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INSTANT REPLAY 

If you wrote the KEEP directive correctly, you should have a 
copy of the binary file, PROG1 .OBJ on a disk. Reboot under DOS, 
BLOAD PROG1 .OBJ, CALL -151 , and type 800L (the program was 
stored at the default location, $800). What do you have as output 
on your screen? Now go ahead and type in the initial data from the 
Apple Monitor, just like you did last session. (Remember that the 
data was to be stored beginning at $2000). Run the program, just 
to convince yourself that it's all real. Before you jump into working 
on the next session, it's worth a little effort on your part to see if you 
can decipher what you got from the computer. Or do you want your 
magic decoder ring back? 

If all of that seems like a lot of trouble to run an eight line 
program, don't worry. If all you are ever going to write is eight line 
programs, you would be right. But after all, most programs will need 
to do a little more than this. Also, we will find out later that it is only 
when you are first starting and need to see exactly what is in the 
computer that you will ever need to go into the Apple monitor. 
Most programs are written, assembled and debugged from ORCA, 
after which they can be run from ORCA or DOS. 
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Session Three Summary 

% 

Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list) a machine language program 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC - 

add with carry 

BRK - 

break 

CLC - 

clear carry 

LDA - 

load A 

STA - 

store A 


Addressing Modes 

absolute 

implied 


Assembler Directives 

comments 

END 

EQU 

KEEP 

PRINTER 

START 


Processor Status Flags 
C-cany 
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SESSION FOUR 

ORCA/EZ 

(Nothing Fishy Here!) 

a 

The Monitor 

(Somebody Has to Be in Charge!) 


During the last session, we dealt briefly with the monitor, and 
mentioned a few of the commands available to you. Now we'd like 
to examine the monitor in detail, and while we won't go through 
every command (some are rarely used and of little interest to the 
beginner), we Ml look at the commands you're most likely to have 
use for. You can refer to the ORCA/EZ documentation at the end of 
the book for information on the commands not discussed here. 

If you are using an assembler other than ORCA/M or 
ORCA/EZ, now is a good time to read the documentation of that 
assembler. 

While we're aware that some users of ORCA/M may be utilizing 
this tutorial as an introduction to assembly language programming, it 
is aimed primarily at users of the ORCA/EZ assembler, included in 
this package, and there are some significant differences between 
the two programs. The ORCA/EZ Assembler has two commands 
(HELP and OPTIONS) not available in ORCA/M, and ORCA/M has 
many commands which have been left out of ORCA/EZ. Where 
differences exist, this fact is noted but not elaborated upon. 

To simplify our discussion, we'll divide the commands into two 
groups: first, the commands which are very similar to their DOS 
counterparts; and second, the commands unique to ORCA. 
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COMMAND ABBREVIATIONS 

ORCA/EZ allows very convenient abbreviations ot monitor 
commands. You must type enough of the command to enable 
ORCA to distinguish it from other commands. If there are two 
commands which could be identified by your abbreviation, the 
monitor will assume that you want the command which appears first 
alphabetically. CATALOG, for example, may be abbreviated C, CA, 
CAT, CATA, CATAL, or CATALO, or it may be typed in full. An 
abbreviation of more than one character is checked against the 
spelling of the complete command: CATLOG will result in an Invalid 
Command error. The price we pay for the convenience of these 
abbreviations is that all commands, whether abbreviated or not, 
must end with a RETURN or a blank. The purpose of the blank is to 
let ORCA know that you have finished typing the command. If there 
are parameters to be used with the command (a file name or drive 
number, for example), they must be separated from the command 
by such a blank. The first such parameter (if any are used) may be 
preceded by a comma, or the comma may be deleted. In either 
case, the command must be followed by a blank space. 

CATALOG D2 is the same as CATALOG ,D2 


WILDCARD FILE NAMES 

Many monitor commands require a file name as a parameter. 
For example, to LOCK or UNLOCK a specific file, the file name must 
follow the command. With ORCA, the monitor commands which 
use file names as parameters will also accept "wildcard" file names. 
A "wildcard character" is a character, in this case = , which can be 
substituted for any number of characters (or no characters) in a file 
name. A blank space must separate the command and the file 
name or wildcard character. The command 

LOCK A= 

tells the computer to LOCK all files whose names begin with the 
character "A". The command 

LOCK = 
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tells the computer to LOCK all files, since no restriction (such as "A" 
in the previous example) has been placed on the wild card. The 
command 

LOCK =A 

• " \ 

tells the computer to lock all files whose names end with the 

character "A". The command 

► 

LOCK =A= 

tells the computer to lock all files having the character "A" in their 
names. The command 

LOCK A=S 

tells the computer to lock all files whose names begin with the 
character "A” and end with the character "S’*. (The ORCA wildcard 
works in exactly the same way as the wildcard in the Apple FID 
program.) 

On all commands except CATALOG, if you use a wildcard, you 
will be asked if you want prompting. Prompting gives you a chance 
to OK each file as the computer finds it. If you don't select 
prompting, ORCA will perform the command on all files that fit the 
wildcard. Thus 

DELETE = 

is fairly dangerous without prompting, but it's a tame command with 
prompting to let you approve each deletion. 


COMMANDS SIMILAR TO DOS COMMANDS 
BRUN filename 

The binary file named is loaded and executed. (Note that 
there is no BLOAD in ORCA). Just as under DOS, slot(S), drive(D), 
and volume(V) number parameters are optional, and may be listed in 
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any order or combination. Most assembly language programs start 
at $800, and ORCA will put your program there unless you tell it not 
to using a special assembler directive called ORG. Your program 
and data must fit below $2000 in order to use the BRUN command. 
If it doesn’t, using BRUN will load the program into the same area of 
memory as ORCA/EZ, with disastrous results. It takes a very big 
program to use up that much memory, so you will probably never 
have a problem. If your program gets to be longer than about 3,000 
lines, or if you have a lot of data, check your catalog before using 
BRUN. If the program uses more than 25 sectors, don’t run it under 

the ORCA/EZ Assembler. 

• * • 

BRUN permits the use of a wildcard file name, but will only load 
and execute one program - the first one it encounters which 
matches the wildcard parameter. 

CATALOG 

ORCA's CATALOG command provides a little more 
information than the DOS CATALOG command. In addition to 
printing the volume number, the percent of the disk that is in use is 
printed. As with DOS, each file is identified by type (see the chart 
below) and its length in sectors is printed as a decimal numeral. 
Locked files are identified by an asterisk (*) preceding the file type 
identifier. File types recognized by ORCA are: 

A - Applesoft BASIC programs 

B - Binary files, including assembled programs 

I - Integer BASIC programs 

R - Relocatable files (ORCA/M ONLY!) 

S - Assembler source files 

T - DOS text files 

The ORCA/EZ Assembler can recognize (but cannot do 
anything with) files of type R - relocatable files for input to the link 
editor of ORCA/M. Such files cannot be created under ORCA/EZ 
and would only be encountered if you use a disk which has been 
used in conjunction with ORCA/M. 
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The CATALOG command may have a file name parameter. 
This is usually a wildcard file name, which causes the computer to 
catalog only those files whose names begin with a given character 
string. 

CATALOG CHAPT.= 

* 

will produce a catalog of files beginning with "CHAPT.". 

CATALOG may also be used with drive, slot, and volume 
number parameters. If the volume requested is not available in the 
slot and drive specified, a Volume Mismatch error message is 
printed. 

DELETE filename 

The file named is deleted from the disk. Drive, slot, and 
volume parameters are permitted, as they are under DOS. You can 
use the wildcard parameter with the DELETE command, and will be 
asked if you want prompting. If you answer "NO", the file or files 
named will be deleted without further input from you. If you answer 
"YES", each file will be listed individually, and you must tell the 
computer (by keying Y or N) whether you wish to have that specific 
file deleted. As each file is deleted, a message to that effect is 
printed on the screen. 


LOAD filename 

• • 

9 

The file named is loaded into the text edit buffer from disk. 
This command differs from the DOS LOAD command, however, in 
that the file MUST be of type S (assembler source code). The 
ORCA LOAD command will not load text or Applesoft files. (Recall, 
too, that there is no BLOAD command in ORCA). As with BRUN, 
the wildcard file name may be used, but ORCA will load only the first 
file it encounters which matches the wildcard parameter. Drive, slot, 
and volume parameters are also permissible. 
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LOCK filename 


The file named is locked, and any attempt to write to this file, or 
to delete it from the disk, will result in a File Locked error message. 
Use of the wildcard parameter is permissible. You will be asked 
whether you want prompting (see the discussion of prompting 
under DELETE), and as each file is locked, a message to that effect 
will be printed on the screen. Drive, slot, and volume parameters 
may also be used. Files can be unlocked if it is necessary to write to 
them or to delete them from a disk by using the UNLOCK command, 
which operates in a manner similar to LOCK. 

NEW 

This command was discussed in the previous session. It puts 
you into the text editor and wipes out anything which was in the text 
edit buffer. For this reason, NEW should not be used for re-editing a 
file already in memory. It should be used when you wish to enter 
new text rather than re-edit an old file. 

When you enter the Editor by using NEW, the blank first page 
of the file you are about to create is displayed, with the edit cursor in 
the upper left-hand corner. 

RENAME oldfilename.newfilename 

This command is the same as its DOS counterpart. Slot, drive 
and volume parameters may be used. The comma between the old 
file name (which must come first) and the new file name is 
mandatory. RENAME changes the name of a file already saved to 
disk from oldfilename to nevyfilename. You may use a wildcard 
parameter for the OLD file name only . If you think about it, this 
makes a lot of sense: a wildcard is used to substitute for letters in a 
file name that already exists. The computer can search for files 
which match a wildcard description, but it would be pretty hard to 
assign new file names based on a wildcard. A command like 

RENAME CHAPT.=,BOOK 

causes the first file encountered named "CHAPT.something'' to be 
renamed "BOOK". You need to be careful, then, to be sure you are 
renaming the right file. 



SAVE filename 


Like its DOS counterpart, this command saves the file 
currently in the text edit buffer to disk, assigning it the name which 
follows the command SAVE (remember that there must be a blank 
space at the end of the command). As usual, volume, drive and slot 
parameters may be used. If you type SAVE without a file name, and 
the file had been saved before (perhaps you just LOADed it to 
re-edit), and its name is OLDFILENAME, ORCA will give you a 
chance to save it under its old file name by asking "Use 
OLDFILENAME?” You can reply Y or N, for yes or no. If you type 
SAVE without a file name, and the file is a newly created one (it has 
not yet been saved to disk or named), ORCA will ask, "Use 
NONAME?". If you reply with anything beginning with "Y", the file 
will be saved to disk under "NONAME"; if your reply begins with "N" 
you will be given a chance to start over. Type SAVE followed by a 
space and then the name you would like the file saved under. (If 
you decide to reply with something other than Y or N, ORCA/EZ will, 
more or less politely, repeat its question. 

The only type of file which can be SAVEd under ORCA is an 
assembler source code file (type S in the catalog). Each time you 
SAVE the file, a counter is incremented. In addition to saving the 
file, ORCA also saves the value of a counter (the number of times 
the file has been updated). This update number will be displayed 
when the file is LOADed, and is modulo 256 (which sounds very 
classy, but just means that if you update this poor, overworked file 
more than 256 times, the counter starts over at 0, sort of like the 
speedometer in your car rolling over every 1 00,000 miles). Wildcard 
filenames cannot be used with SAVE. 

Sometimes when a file has been edited and is then re-saved, 
it will require fewer sectors on the disk than before. Unlike Apple 
DOS, if this occurs under ORCA, the unused sectors are released. 
If you CATALOG the disk, you'll notice that the catalog reflects the 
smaller file size. 
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UNLOCK filename 


This is just the opposite of LOCK, and everything we said 
about parameters for LOCK applies. UNLOCK unlocks the file 
named, so that it may be written to or deleted. It is identical to the 
DOS command, UNLOCK. Slot, volume, drive, and wildcard 
parameters are permissible, and prompting is available with the use 
of a wildcard. 


COMMANDS WITHOUT DOS COUNTERPARTS 


APPEND filename 

w 

This command appends the file named to the file currently in 
memory. It first removes any blank lines from the end of the file in 
memory, then retrieves the file named from the disk and places it at 
the end of the file in memory to create one (longer) file. Be sure of 
the order you want for the combined file - you must LOAD the file 
which is to come first into memory, then APPEND the file which is to 
come second. If you use the wildcard parameter, only one file - the 
first one which fits the wildcard name - will be appended. Using the 
wildcard will not append a whole list of files to the file in memory with 
a single command. APPEND only works with assembler source files 
(type S in the CATALOG), and does not automatically SAVE the 
new, longer file. If you wish to save this combined file, you must do 
so explicitly with the SAVE command. 


ASSEMBLE 

The ASSEMBLE command directs the third part of ORCA, the 
assembler, to assemble the source file currently in the edit buffer. 
There are no parameters. We will discuss the assembly process in 
detail in section three of this session, so you don't need to worry at 
this point about exactly what is going on. Essentially, though, this is 
the point at which ORCA translates all the assembly language code 
you've written into something your Apple can understand directly. 
The ASSEMBLE command does dql execute the program! If 
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you've included a KEEP directive in the program, the assembled 
program is saved to disk during the assembly process. When the 
assembly process is finished, control is returned to the operating 
system, which re-enters the monitor. (Users of ORCA/M should 
consult their documentation about the ASML command, which is 
available in addition to (not in place of) ASSEMBLE.) 


EDIT 


The EDIT command was discussed in Session Three. Like 
NEW, it allows you to enter the editor, but does so without 
disturbing the edit buffer. A file already in memory will not be 
destroyed as it will by NEW. EDIT should not be used when first 
bringing up the system, because it does not clear the workspace of 
any extraneous garbage. Some of that garbage might show up in a 
file you create after entering the editor in this way. 

When you enter the editor through the use of EDIT, the first 
page of the file currently in memory is displayed, with the edit cursor 
in the upper left-hand corner. If you have just brought up the 
system, and used EDIT instead of NEW to enter the editor, you may 
see some of the garbage we keep telling you about. (No 
guarantees, but it's worth a try. So try it!) 

EDIT is usually used to edit a file you've loaded from disk, or 
which has been left in memory while other monitor commands were 
used. If you have left the monitor (and then re-entered it), you can 
also use EDIT to attempt recovery of a file left in the edit buffer while 
you were out of the monitor. If the buffer (located from $A000 to 
$BFFF) has not been disturbed by whatever you were doing 
outside of the monitor, the file will be intact. (Of course, if you 
turned the computer oft, there's no hope. ..turning the computer off 
disturbs the buffer about as thoroughly as it can be disturbed.) 
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FREE displays the percentage of the maximum source file 
length used by the file currently in the text edit buffer. (Note that 
this is not the percent available, but the percent used). In the 
ORCA/EZ Assembler, the buffer length is the same as the maximum 
file length that ORCA/EZ can deal with. When the edit buffer is 
filled, the editor will return you to the monitor if you give it any 
command which would attempt to lengthen the file. You are not 
warned when you have nearly filled the buffer, but you can use 
FREE to give yourself an idea of how close you are. 

If you have the source code for our earlier program on a disk, it 

might be a good time to LOAD that file into the edit buffer, and try 

out FREE. If you did not SAVE that source code, take a few 

minutes out right now to re-enter the source code and SAVE the 
file. 

HELP 

Typing HELP when you see the monitor prompt (#) and a 

flashing cursor causes the first half of a list of the ORCA/EZ monitor 

commands to be displayed on the screen. Each is followed by a 

brief description. To see the second half of the commands, use the 

right arrow (->) key; to return to the first half of the commands, use 

the left arrow (<-) key. When you’ve finished looking at the 

command list, the RETURN key will put you back into the monitor. 
(Not available in ORCA/M.) 

OPTIONS 

One of the unfamiliar commands you just saw listed when you 
used the HELP command is OPTIONS. This command allows you 
to tell ORCA/EZ about the configuration of your computer 
system. Once the system options are set, it allows you to make 
these changes a permanent part of the information the assembler 
uses (of course the information can be changed again if necessary 
by using the OPTIONS command again). This command is not 
available in ORCA/M. Instead, the operating system is 

reassembled. See the ORCA/EZ reference manual at the end of 
the book for details. 
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QUIT 


QUIT allows you to exit the ORCA system entirely (but it does 
not remove ORCA from memory). Control is transferred to the Apple 
monitor, which we have used before. After typing QUIT 
<RETURN>, you will see the Apple monitor prompt (*). You cannot 
use DOS at this point, because it has been overwritten by ORCA. 
(You'll need to reboot to use DOS). 

% 

If you want to return to the ORCA monitor (and you haven't 
already rebooted DOS, which will overwrite ORCA), there are 
several ways to do so. You can type 2000G, which tells the Apple to 
execute the machine language program (ORCA) which begins at 
memory location $2000 (the G stands for GO, remember?) A 
second method, for those who don’t want to type so many 
characters, is to type CTRL-Y. (Both 2000G and CTRL-Y require a 
<RETURN>). If you have Autostart ROM, RESET (or CTRL-RESET 
for the Apple He, He, and some Apple ][+'s) will also return you to 
the ORCA Monitor. Give all of these methods a try right now. 


RESTORE filename 

Unless you're very careful or very lucky, you’ve probably had 
the experience of deleting a file and then wishing you hadn't. If you 
had some kind of disk zap utility package, you may have been able 
to restore the file, but there was no DOS command to do so. 
ORCA's RESTORE command causes the disk to be searched for a 
deleted file with the given name (no wildcard can be used in the file 

overwritten, it will be restored. Experiment with this command by 
DELETEing a file and then RESTOREing it immediately. If you 
SAVE a file, after deleting the first file and before restoring it, you 
run the risk of re-using one or more sectors of the original file and 
making it impossible to restore. 



v 
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RUN 


Although this looks just like a DOS command, it has some 
differences important enough to warrant grouping it with the other 
commands unique to ORCA. This command cannot RUN Integer or 
Applesoft BASIC files. The assembler source code file in memory 
is assembled; if the highest error level the assembler foundwas less 
than the highest error level allowed, and if the KEEP directive was 
included so that the finished program is saved, the program is also 
executed. If there was no KEEP directive, the program is 

assembled and lost. It is ntf executed. (The moral of the storv is 

dont forget to include the KEEP directive in your proqrams). We 
have not discussed "error levels" yet, but the conditions stated 
above probably mean that the assembler found no errors. 


BA S 1C "k *thLf di t h^ re m?M betWee n thiS and the RUN command for 
BASIC is that this RUN command does not take a file name 

parameter and does not do a LOAD from disk. The file to be RUN 
must already be in memory. 


VOLUME n 


As we’ve already discovered, the ORCA operating system 

KK *!* US ? °L the volume number of the disk referenced by a 

_. , m h a S a,e * men ‘ ? ne u wa y t0 9ive 3 Particular disk a specific volume 
number is to specify that volume number when initializing the disk 

™ thPHte?® ™ mber J s tben ^corded in the header of each sector 
on the disk, and can be changed only by re-initializing the disk The 

rJroSESS l ? 7 corded in the Volume Table of Contents 

VTnr k h 1 tra< ? 17, Sect0r °’ and the volume numb er in the 

thP VnniMn chan9ed without re-initializing the disk. This is what 
tne VOLUME command does. 


When you type VOLUME followed by a space and an 
rom 1 to 254, ORCA changes the volume number (in the 

only) to the value you specified: 


integer 

VTOC 


VOLUME 15 
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changes the volume number in the VTOC to 15. If you didn't 
specify a volume number when you initialized the disk, it defaulted 
to volume 254. Since Apple DOS uses the volume numbers in the 
sector headers, rather than in the VTOC, if you CATALOG the disk 
under DOS, it will be listed as Volume 254. If you CATALOG the 
disk under ORCA, it will be listed as Volume 15, because ORCA 
looks at the VTOC, not the sector headers. The disk will still work 
equally well under Apple DOS and under ORCA. 


One last note is in order. There is no command in ORCA that 
does anything at all like the DOS command, INIT. You cannot 
initialize a disk under ORCA. If you intend to use a disk to store 
either source files or assembled (binary) files, you must initialize the 
disk first, in the same way that you've been initializing disks for use 
with BASIC. 


* 
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The Editor 


(Typing, Anyone?) 


We're now ready to turn our attention to the text editor, and 
examine its commands in detail, too. We will not, however, go 
through all of the commands, since most of your editing will be done 
with just a favored few (35 or 40 commands is a few?) 

The ORCA Editor is a screen editor . This means that we can 
make changes anywhere on the screen, not just a line at a time, as 
in BASIC. We look at a file through a window which allows us to 
view 22 lines of this file at a time. It is stored in a region of memory 
called the text edit buffer . If we type a character, that character is 
entered at the cursor's current position in the file, replacing any 
character that might already have been there. The cursor then 
advances to the next column of the line it was on, except that the 
cursor cannot violate an end-of-line tab stop. 

The right arrow and left arrow keys operate as you would 
expect, moving the cursor to the right and left (without violating 
margins). While the editor can handle 80 columns of text, the 
standard end-of-line tab stop restricts us to 59 columns. The up and 
down arrow keys will also work in the editor, unlike the situation in 
BASIC, where the editor cannot use them. On older Apples that do 
not have up and down arrow keys, use CTRL-K for an up arrow, and 
CTRL- J for a down arrow. 

The RETURN key functions only to move the cursor to the left 
margin of the next line down. It is not necessary to use it with every 
edit command. It also does one other very useful thing. When you 
press the RETURN key, the line that the cursor started on is sent to 
the assembler for a quick check. If the assembler finds an error, the 
error message is printed at the bottom of the screen and the 
speaker beeps. Although this does not guarantee a perfect 
program, it helps avoid the most obvious errors. 

We need a file to play around with - one that is long enough to 
give us a chance to use all the commands we’re going to look at. 
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Rather than waste a lot of time typing, we'll use a file that is already 
on your ORCA disk. You should have ORCA booted up. Check the 
catalog (choose your own abbreviation). There are several likely 
looking files here. LOAD SUBS. UTILITY and enter the editor by the 
EDIT command (if you used NEW, you'll have to reload the file). We 
are looking at the first page of the file, and the edit cursor is at the 
upper left-hand corner of the page. Our first task will be to learn to 
move around in the file, and there is a great variety of commands to 
enable us to do just that. Because we want the computer to know 
whether we are giving it a command or just typing a character in the 
file, most commands are preceded by CTRL or ESC. 

Let's look first at some of the CTRL commands used for 
moving around in the file. We aren't going to try any fancy editing 
yet, just become familiar with eight basic moves. We'll start with the 
window we're looking at (remember that we are moving the edit 
cursor). 

CTRL-T Top of the window, beginning of the line. 

CTRL-B Bottom of the window, beginning of the line. 

CTRL-E End of whatever line you’re on. 

CTRL-W Beginning of whatever line you're on (yes, we 

know "W* isn’t the first letter of Beginning, but 
"B" is already in use, and "W” is to the left of 
"E", just as the beginning of a line is to the 
left). 

Go from top to bottom of the window several times. These two 
are easy to remember. Then go back and forth from beginning to 
end of a given line many times. CTRL-E is easy to remember fE" 
for End), and if you think of CTRL-W as West, and CTRL-E as East, 
you'll be able to think of the East and West ends of a line. 

How about movement within a single line? The tabs are 
invoked with the TAB key, or CTRL-1 on computers without a TAB 
key (to tab right), and by CTRL-S (to tab left). Try out the tabs, all the 
way across a line, both left to right and right to left. Note the 
standard tab stops which make it easy to code assembly language 
source files. 
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TAB (CTRL-1) tab right 
CTRL-S tab left 


Now, what if we'd like to move from top to bottom of the whole 
file, not just the window ? 

* 

CTRL-F First line of the file 
CTRL-L Last line of the file 

Here's a sort of visual summary to help you remember what 
you're doing: 



CTRL-T 

(top) 

CTRL-W 

(left, west) 

CTRL-B 

(bottom) 


CTRL-E 
(end, east) 


CTRL-F 
(first line) 

TAB 

or 

CTRL-S CTRL-1 

(tab left) (tab right) 

CTRL-L 
(last line) 

Now you can move from top to bottom and from side to side, 
but what about moving around inside ? One way is to simply use the 
arrow keys. Try your arrow keys now. Another way is to make use 
of some ESC commands. It will get a little confusing, because some 
of the letters are the same as those used with CTRL commands, but 
there are good reasons for what we're doing. These ESCape 
commands also take advantage of the REPT (repeat) key of the 
Apple ][ and the auto-repeat feature of the Apple lie. After entering 
the escape mode, these commands may be executed repeatedly 
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by holding down the command key and REPT key (or just holding 
down the command key if you have auto-repeat). 

We just mentioned "entering the escape mode". While not as 
exciting as entering the Twilight Zone, it's much easier to do. When 
you hit the ESC key, you'll notice that 

>» ESCAPE «< 

appears at the bottom of your screen. As long as that message is 
there, you're in escape mode. To get out of ESCape mode, type 
any key not used in an ESC command (to simplify things, since you 
don't want to issue an ESC command by mistake, use the space 
bar, RETURN, or ESCape to get out of escape mode). 

Now that we’re in the escape mode, what shall we do? You’ve 
already (both in BASIC and in ORCA) used ESC-I,J,K, and M as 
cursor movement keys. The direction they move the cursor is 
related to their position on the keyboard : 

A.' 

ESC-I up 

ESC-J left *. ‘ 

ESC-K right 

ESC-M down 

You're probably already very good at this, but practice moving the 
cursor around with these keys anyhow. Use the REPT key or 
auto-repeat, too. To get out of the ESCape mode, remember to 
press the space bar, RETURN key, or ESCape key. 

Now suppose we'd like to go from page to page in our file, or 
maybe we’d like to move up or down a few lines with the window. 
The escape mode commands for these moves are as follows (be 
sure you're in ESCape mode): 

A 

ESC-W scroll up one page f’W'' is on the top row of 

keys, so we're scrolling up). 

ESC-X scroll down one page ("X" is on the bottom row, 

so we're scrolling down). 
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ESC-E scroll up one line (you guessed it, "E" is on the 

top row, so we're scrolling up). 

ESC-C scroll down one line ("C" is on the bottom row, 

so we're scrolling down). 

Try each of these several times, particularly with repeated 
commands. 

Another way to issue repeated escape commands (if you'd 
like to scroll exactly 3 pages, for example) is as follows: 

ESC-3X scrolls down 3 pages 

ESC-1 2E scrolls up 1 2 lines 

ESC-24K moves the cursor 24 columns to the right 

This can be done with any of the escape mode commands! 
(Remember, though, that you don't have to hit the ESC key each 
time; once in, you stay in ESCape until you deliberately exit this 
mode) . The "repeat count" is usually a number less than 256. If a 
larger number is entered, or if a "?" is used instead of a number, the 
command will be executed as many times as possible. 

OK, so we can zip around this file as easily as ... whatever. 
What about real, honest-to-goodness editing? You know, out with 
the bad lines, in with the good. Rearranging lines so the computer 
will really do what we want it to do, and not what we told it to do the 
first time? Fixing that mnemonic that we misspelled all the way 
through the program? As long as we're in escape mode, we'll look 
at several more very useful commands. 

ESC-Y deletes the line the cursor is on, and moves the 

following lines up. 

ESC-B inserts a blank line before the line the cursor is 

on, moving old lines down to make room for 
new text. 

ESC-G delete a character and move the rest of the line 

to the left to fill the gap. 

ESC-H insert a blank at the cursor position and move 

the rest of the line one space to the right (any 
characters which scroll off the right end of the 
line are lost forever); a new character may now 
be typed over the blank. 



Notice on the diagram below how the cursor movement keys 
are grouped together, the insert/delete keys are grouped together, 
and the window position keys are grouped together. While you 
don't have to memorize the diagram, it may help you keep all those 
commands organized in your mind. 

W E 

Window 
Position 


X c 


Try these out by deleting a line of your choice from the file. 
Then insert a line in its place (make it some kind of easily recognized 
nonsense line). Insert a number of x's in one word of the line, and 
continue doing so until you have lost some letters off the end of the 
line. Now delete the x's until you have what's left of your line back. 
Leave the nonsense line in the file. Below the nonsense line insert 
25 blank lines, and leave them there, too. 

Suppose we decide that we don't want to enter any more text 
after the nonsense line, but we would like to get rid of the blank 
lines. Get out of escape mode (the space bar, RETURN, or ESCape 
will do it) after moving the cursor to one of the blank lines (preferably 
not the first or last blank line). To remove blank lines from the cursor 
position to the first non-blank line, type: 

CTRL-R (this command removes blank lines) 

You should notice that the blank lines above the cursor are still 
there. Now move to the first blank line and use CTRL-R again to 
remove the rest of the blank lines. 

Now we’re ready for some heavy-duty editing. Let’s consider 
the case of the programmer who misspells a word all the way 
through the comments in his program. He'd like to find and correct 
all occurrences of that word. This process is called a search and 
replace. We'll look first at the search part of it. 
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H 


B 

insert/ 

delete 


I 


J 


K 



cursor 

movement 


First we must tell the computer what to look for. This is done 
from the escape mode by typing an asterisk. The computer replies 
with an asterisk at the bottom of the screen, followed by the cursor. 
Type in the search string and press RETURN. We'll assume that we 
want to find all LDA's, so type LDA. Note that the <RETURN> got 
us out of the ESCape mode. 

This search string is the only one the computer will recognize 
until we enter a new one. To search for occurrences of LDA only 
(we are not yet ready to replace LDA with anything else) we use one 
or both of the following: 

■ % 

CTRL-X moves the window down until the next 

occurrence of the search string is on the top 
line of the window; the cursor will be on the 
fast occurrence of the search string in that 
line. 

CTRL-Z moves the window up until the last occurrence 

of the search string is on the top line of the 
window; the cursor will be on the last 
occurrence of the search string in that line. 

• • a m 

Note that CTRL-X searches toward the end of the file, while CTRL-Z 
searches toward the beginning of the file. 

If we want to not only find, but change each occurrence, we 
need to tell the computer what to replace the search string with 
when it finds that string. To enter a replacement string, you must 
be in the escape mode. Type a colon. A colon will appear at the 
bottom of the screen. Enter the replacement string and 
<RETURN>. This replacement string will be valid until we change it 
explicitly. 

We now must choose the type of search and replace we want: 

CTRL-C search and replace toward the top of the file. 

CTRL-V search and replace toward the bottom of the 

file. 
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Either command will result in the computer asking if an 
automatic or manual search and replace should be done. An 
automatic search and replace is like a wildcard DELETE without 
prompting; it replaces every occurrence of the search string with the 
replace string. A manual search and replace is more like a wildcard 
DELETE with prompting. For each occurrence of the string, you will 
be asked whether or not to replace the string. There are three valid 
responses; 

Y replaces this occurrence. 

N skips to the next occurrence without replacing 

this one. 

Q quits the search and replace without doing any 

more replacing. 

To try this out, first enter a replacement string. Let’s pretend 
that we want to replace our search string, LDA, with LOAD A. From 
the escape mode, type a colon, then LOAD A. Now choose 
CTRL-V or -C. For the first time through, do a manual search and 
replace. After you have finished, choose another search string, 
another replacement string, and the command you didn't use the 
first time. Do an automatic search and replace this time. Carefully 
check through the file to see what happened. 

The last thing we want to learn to do is to copy and move 
sections of text from one place to another in the file. Locate the 
nonsense line you entered in the file, and place the cursor on it. 
From the escape mode, type P. Get out of escape, and type 
CTRL-P. Your line should have been copied. Place the cursor on 
the first nonsense line. Follow this sequence: 

ESC-2P push 2 lines into the copy buffer. 

<space> get out of ESCape mode. 

CTRL-P pop 2 lines from copy buffer into file. 

CTRL-P pop the same 2 lines from the copy buffer into 

the file again. 

Now check the file carefully. Were the original lines deleted? Move 
the cursor up 10 lines or so and type CTRL-P again. Do you see 
how a few lines of repetitive code can be easily entered into several 


103 



parts of a file? Up to 99 lines of text can be moved at one time, using 
this ESC-P, CTRL-P sequence. 

a * • 

If you wish to delete the lines you're moving around from their 
original position, the only change you need to make is to use 
ESC-0 instead of ESC-P. Try to move the block comment at the 
beginning of this file to the end, and delete it from the beginning at 
the same time. 

> 

Let's summarize the commands for moving text: 

ESC-P copy (Push) lines from file to buffer 

ESC-0 delete lines from file to buffer (Remember O is 

for Omit the lines from the file) 

CTRL-P Pop lines from buffer to file 

We only need one more command - the one which allows us 
to exit the Editor and return to the Monitor: 

CTRL-Q QUIT 

Although there are a few other commands, and special characters 
which can be entered friom the editor, you now have enough 
information to quickly and easily edit files under ORCA. There's just 
one more thing: Do not save this file under its real name (why save it 
at all?). If you do so, you will make a big mess of your ORCA disk. 
This file has a real purpose, and should not be altered by you (yet, 
anyway). 
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The Assembler 

* * * 

fe * • • 

* 

(Here's the Beef!) 

% • 

9 mm 

9 • a 

The time has come to find out how the assembler does what it 
does. All we've said so far is that the assembler translates our code 
to something an Apple can understand, and we've used it as a 

"black box" - something we don't have to understand to utilize. 

. . * • * 

First a little review is in order. The source file we want to 
assemble is expected to be in the text edit buffer, either because 
we just created it, or because we had earlier SAVEd it to disk, and 
have now LOADed it back into memory. Another area of memory, 
called the program buffer, is waiting to save the object code 
generated by the assembler. As this buffer fills up, its contents are 
written to disk, so that programs can be assembled in spite of their 
length. Since the edit buffer also has a limit to the length of file that 
it can store, it must do just the opposite: as it finishes with one part 
of the program, it brings the next part of the program into memory 
from disk. When the whole assembly is finished, the original source 
file is placed back into the text edit buffer (even though other files 
may have been brought in during the assembly). In order to be able 
to do this, the assembler must save the original file to disk under a 
name that it will recognize . It uses the file name, SYSFIRST. This is 
why, in our earlier discussion of file names, we said that SYSFIRST 
is a reserved file name. If you use any file whose name begins with 
SYS-, you are in a lot of danger of getting that file clobbered during 
an assembly. The safest thing to do (or not to do, actually), is to use 
file names which do not begin with SYS-. In fact, no label should 
begin with SYS-, if you want to protect yourself from possible 
disasters. The SYSFIRST file usually is deleted at the end of an 
assembly, so you’re not likely ever to find it on your disk unless the 
assembly was interrupted and the assembler never reached the 
point of destroying this file (which is no longer necessary when the 
assembly is complete and the original source file has been 
re-LOADed). 

* 

Remember, too, that you should have a disk in every drive 
when you assemble a program. Because of the volume parameter 


105 



in the KEEP directive, the assembler will search all drives for the 

volume it wants. If there is a disk in each drive, but the right one is 

missing, the computer will ask for it, but not roll over and play dead. 

If a drive has no disk, however, that's another story. The I/O error 

which occurs when the assembler tries to access a non-existent 

disk is (as they say) terminal, and your computer will, indeed, roll 
over and play dead. 

We also discussed a few assembler directives when we were 
initially writing our first program. An assembler directive is a 
command to the assembler itself, telling it to do some particular 
thing, in a particular way. It may tell the assembler to reserve 
memory for something that will happen in the program, or assign a 
value to a label, or identify the beginning or end of a subroutine. 
We have learned only five directives so far: PRINTER (ON or OFF), 

START, END, and EQU. Rather than going into detail about 
all of these at once, we'll take them as they come up, and slowly 
build up our vocabulary for speaking with ORCA. 

So... what goes on during an assembly? ORCA/EZ is a 
3-pass assembler . (ORCA/M is a two pass assembler - see your 
reference manual.) The term, 3-pass, indicates that the assembler 
goes through the program 3 times. What occurs during each pass? 

PASS ZERO 


Most assemblers use two passes, generally called pass 1 and 
pass 2. These assemblers either finish with a link edit step to 
combine all of the subroutines in a program, or only allow a single 
subroutine in the program, much the same as in BASIC. (Before 
you start to write us a letter, telling us that you've personally written 
J of BASIC programs, each of which had 20 or 30 


understand 


formal, rigorous definition of a subroutine as a subprogram with its 
own distinct set of variables, known to Pascal and Fortran 


programmers as local identifiers What is usually referred to as a 
subroutine in an Applesoft program is actually part of the main 
program, and can share variables, known as aloha l identifiers w j{h 
that main program and any other "subroutines” it contains). More 
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advanced assemblers always provide a way to split programs up into 
subroutines, even if there is no link edit step. This would 
correspond more closely to the way Fortran or Pascal work. With the 
subroutines comes the advantage of local labels, where each 
subroutine can define a label and they can all use the same name, 
say LOOP, for the label. The programmer only needs to worry 
about the single subroutine being looked at when choosing label 
names. (We will give a specific example of this in a later program.) 

With this advantage comes a disadvantage, the need for an 
extra pass. In the ORCA/EZ Assembler, this is dealt with by adding 
pass 0 to the front end of the assembly process. Pass 0 makes a 
quick scan through the entire program to resolve global labels , 
which are the ones that can be accessed from a subroutine even if 
they were not defined in the subroutine. The labels used on 
START directives are global; this gives you a way to call a 
subroutine by name from another subroutine. 

When Pass 0 starts, the assembler prints the message 

Pass 0: 

% 

at the top of the screen. The disk will whir for a while as the 
assembler goes through all of the source code in the program 
looking for global labels and determining where they will be placed 
in memory. After pass 0 is finished, the assembler loads the first file 
in the program and starts over again with pass 1 and 2, described 
below. 

There are a few assembler errors, called terminal errors, that 
are so bad that the assembler cannot continue to scan the source 
file. An example is a disk drive error, which could be caused by a 
bad disk, or by not having disks in every drive when the assembly is 
started. Since pass 0 gives no indication of where it is in the 
program when it encounters the error, there needs to be some way 
of telling you what line actually caused the error. To do this, the 
assembler and editor work together. After the error message is 
placed on the screen, the assembler waits for you to press a key. It 
then returns control to the editor, which enters the file that the 
assembler was working on, placing the line that caused the error at 
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the very top of the screen. You can then edit the file to correct the 
problem and exit the editor in the normal way. The file that was in 
memory when the assembly started (if it is not the one that actually 
caused the terminal error) can still be recovered - it is the SYSFIRST 
file that has been mentioned before. You can LOAD it just like you 
would load any other source file. 

PASS ONE 

9 

After pass 0 finishes, the assembler starts at the first line in the 
program for the second time. Pass 0 has found and identified the 
location of all of the global labels in the program. Pass 1 will now go 
through a single subroutine and find all of the local labels, or labels 
that are defined only until the end of the subroutine. These are 
placed in an area of memory called the symbol table , where the 
symbols can be looked up by pass 2. As soon as pass 1 finds the 
START directive at the beginning of the subroutine, it prints a 
message to let you know where it is. If the label on the START 
directive is MYPROG, the message would be 

Pass 1 : MYPROG 

When pass 1 has finished scanning a subroutine for local 
symbols, it calls pass 2. Pass 2 will start with the same line that pass 
1 started on, processing it for the third (and last!) time. 


PASS TWO 

Pass two starts with a message just like the one pass 1 
printed, keeping you informed about what is going on. Since any 
valid label is now in the symbol table, pass 2 can look there to find 
the exact values of all labels. If a symbol cannot be found, pass 2 will 
give an error message telling you that the line it is working on 
contains an undefined label. More on errors later. 

9 • 

9 

For now, let's take a look at what pass 2 prints when it prints a 
line on the screen - there is a lot of information there! Each line 
starts with a four digit hexadecimal number. It should come as no 

9 • » * 

_ _ 9 • 

• * 9 
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surprise that this number is the memory location where the 
assembler placed your machine code. Note that the assembler is a 
disk based assembler, so that the actual memory location indicated 
is not actually changed by the assembler - in fact, the memory 
doesn't even have to exist in the computer that is doing the 
assembly! The address shown is the place that the line will be when 
you BRUN the program. 

v 

After the address is an area where the assembler writes the 
actual machine code that it produced from your line. Comment lines 
and all of the assembler directives we have looked at so far don't put 
anything into the final program, so for them, this area will be blank. 
Assembly language instructions, on the other hand, are translated 
to machine language instructions. Enough space is provided to 
write up to three bytes of machine language on each line, since all 
machine language instructions on the 6502 are one, two, or three 
bytes long. Unused bytes are again indicated by filling the extra 
space with blanks. Note that the bytes are the same bytes that you 
would have to use to write the program in machine language - you 
can keep up on your machine language, and perhaps even learn a 
little about efficient programming, by occasionally looking at these 
bytes. 

The rest of the line is the characters you typed into the editor. 
If a line has an error in it, the line is followed by an error message. 
The message for an undefined label would look like 

ERROR: Unresolved Label 

s 

The reference manual for the assembler has an appendix which 
explains what can cause each of the errors, and what to do to fix 
them. We will mention specific errors in this tutorial, but will leave 
the summary to the reference manual. 
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After pass 2 finishes with a subroutine, it prints all of the local 
labels found in the subroutine, following the labels with the value 
assigned to them as a four digit hexadecimal number. Pass 2 then 
erases all of the local labels from the symbol table, and returns to 
pass 1 . Pass 1 then repeats the process on the next subroutine in 
the program. After ail subroutines have been processed, the 
assembler will finish up with a listing of all of the global labels, using 
the same format as was used for the local labels. 

PRINTER LISTINGS 


All of the things we have talked about so far assume that the 
PRINTER ON directive has not been used. Listings to the printer 
have three minor differences from listings sent to the CRT screen. 
The first is that the messages at the beginning of pass 1 and pass 2 
are no longer printed. The pass 0 message still gets printed, but 
only to the CRT screen. The second difference is that each line 
now starts with a four digit decimal line number that starts at 1 and is 
incremented for each line. This just gives a convenient way to 
specify exactly which line of the program you are talking about. The 
rest of the line is unchanged. The last difference is that after listing 
the symbol table for a subroutine, pass 2 skips to the top of a new 
page, so that the next subroutine will start on a fresh page. 
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Session 4 Summary 


Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list) a machine language 
program 
read memory 

set (enter values into) memory 


Assembly Language Instructions 

ADC - add with carry 
BRK - break 
CLC - clear carry 
LDA - load A 
STA - store A 


Addressing Modes 

absolute 

implied 


Assembler Directives 

comments 

END 

EQU 

KEEP 

PRINTER 

START 

Processor Status Flags 
C-cany 
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SESSION FIVE 

More Math Operations 

(Any Which Way You Can) 

Subtraction 

k 

(And Then There Were None) 


After all that plodding through monitor and editor commands, 
and trying to make sense of the assembler’s output, it will be nice to 
get back to something simple. We'll take a look at subtraction next. 
The process of subtraction is much the same as that of addition, 
with the major difference being the occasional necessity of 
borrowing to complete the subtraction. As we did with addition, 
let's first look at some examples of subtraction in general, and then 
develop these into a program to subtract two 2-byte numbers. We’ll 
look both at decimal examples (because of their familiarity) and at 
examples in hex, since we do have to try to think like a 
microprocessor to give it useful instructions. 

9 8 In this example, there was no need to 

- 4 6 "borrow". 

5 2 


81 Here, we need to borrow. The usual way of 

9 1 thinking about this is: we cannot subtract 1-6, 

-46 so we borrow one 10 from the tens column, 

• 1 • i a 

— — reducing the number of tens from 9 to 8. We 

4 5 add the 1 0 we borrowed to the 1 we had, for 

a total of 11. Now we subtract 11 ones 
minus 6 ones equals 5 ones; 8 tens minus 4 
tens equals 4 tens. (While we have nothing 
against the second-grade teacher who 
taught you this method, we feel it's only fair 
to warn you that the computer didn't have 
the same teacher, and it does things a bit 
differently). 
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Here's a hex example of a subtraction that 
doesn't require a borrow. 


In this hex subtraction, borrowing was 
necessary. To make it easier to understand, 
we've written ”16+'' above the ones column 
to remind you that we have borrowed one 
16. "A" stands for 10, and "F" stands for 15, 
so what we have here is really 26-15=11, 
which is $B. The next subtraction is easy: 
”C" stands for 12, and 12-9=3. 

We are subtracting low nibble first, just as we added low nibble 
first. We will need to have some means of letting the computer 
know when we have borrowed, just as we used the carry flag to tell 
us when we had carried in addition. There is no separate borrow 
flag, though, and in fact we will use the carry flag as our borrow flag. 

We will not attempt to explain exactly how the 6502 uses the 
carry flag to borrow in a subtraction problem, but if you think of it as 
being just the opposite of addition, you'll have a workable (if not 
1 00% accurate) idea of what's going on. 

We began our addition by clearing the carry flag, and as long 
as we did not carry, the carry flag remained cleared (the value of the 
C-bit was 0). When we needed to carry, the value of the C-bit was 
changed to 1, and we said that the carry flag was set. When 
subtracting, we will begin by setting the carry flag (so the value of 
the C-bit will be 1), and as long as we don't need to borrow, the carry 
flag will remain gfil. If we get to a point where we need to borrow, 
the carry flag will be cleared (the value of the C-bit will be changed to 
0). We'll let the microprocessor take care of the details of how to 
borrow, and all we need to do is to be sure that we set the carry flag 
before we begin subtracting. Before we go through the program, 
let's look at a couple of examples to be sure you understand what's 
going on (even if you don't know exactly how it's going on). 


$ A 4 
-$ 7 1 

$ 3 3 


C (16+) 
$ D A 
$ 9 F 

$ 3 B 
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11 
$03 
.$0 2 

$01 


In this case, the carry flag is set before 
beginning the first subtraction. Since 3-2 
requires no borrow, the flag remains set for 
the second subtraction. Since no borrow is 
needed here, the flag stays set. 


Again, we begin with the carry flag set. This 
0 1 time, however, we will have to borrow. (We 

$02 won't write out all the steps). We borrow a 

$03 16, and with the 2 we had, we have a total of 

18. When we subtract 3, the result is 15, or 

$FF $F. Most importantly, the carry flag is 

cleared. Now, because the 0 stored in the 
C-bit tells the computer that a borrow has 
occurred, the next subtraction takes this into 
account. We borrow 16 from the bit bucket, 

and subtract off the one that was borrowed 

• • • * • 

for the one’s column, leaving $F for the 
second digit. This gives the expected result 

of the two's complement representation of 

% 

- 1 . 


A similar procedure will take place when we write a program to 
subtract two 2-byte numbers. The only difference from the second 
example above is that the computer will subtract a byte at a time, 
instead of a digit at a time. Just as it is important to start in the ones 
column in the examples above, it is important to write our program in 
such a way that we will subtract the low bytes first. The result of this 
subtraction determines the status of the carry flag, which then 
affects the result of the second subtraction. Consider the second 
example again, this time as the subtraction of two 2-byte numbers: 


0 

1 

$00 

0 2 

$0 0 

03 

$ F F 

F F 


Remember that the computer subtracts a 
byte at a time. 
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PRINTER ON 
KEEP PRQ62 . OBJ , V 1 00 
**************************************** 


* * 

* LISTING 5. A * 

* * 

* SECTION 5*1 EXAMPLE PROGRAM * 

* * 

* THIS PROGRAM DOES A TWO-BYTE * 

* INTEGER SUBTRACTION * 

* * 

* inputs: * 

* NUM1 - NUMBER TO SUBTRACT FROM * 

* NUM2 - NUMBER TO SUBTRACT * 

* # 

* OUTPUTS: * 

* NUM3 - NUM1-NUM2 * 

* * 


##****#*###*##*##*#***#************###*# 


ORCA/EZ 1-0 

0001 

0800 


0002 

0800 


0003 

0800 


0004 

0800 


0005 

0800 


0006 

0800 


0007 

0800 


0008 

0800 

— 

0009 

0800 


0010 

0800 


0011 

0800 

• 

0012 

0800 


0013 

0800 


0014 

0800 


0015 

0800 


0016 

0800 

• 

0017 

0800 


0018 

0800 


0019 

0800 


0020 

- 

0800 


0021 

0800 


0022 

0800 

• 

0023 

0800 


0024 

0800 


0025 

0800 


0026 

0800 


0027 

0800 

38 

0028 

0801 

AD 0020 

0029 

0804 

ED0220 

0030 

0807 

8D0420 

0031 

080A 

AD0120 

0032 

080D 

ED0320 

0033 

0810 

8D0520 

0034 

0813 

00 

0035 

0814 



* 


PR0G2 

START 


NUM1 

| 

EQU 

$2000 

• • 

NUM2 

EQU 

$2002 

NUM3 

EQU 

$2004 


SEC 



LDA 

NUM1 

• 

SBC 

NUM2 


STA 

NUM3 


LDA 

NUM1+1 


SBC 

NUM2+ 1 

• 

STA 

NUM3+ 1 


BRK 



END 



NUMBER TO SUBTRACT 
FROM 

NUMBER TO SUBTRACT 
RESULT 

• \ 

SET BORROW FLAG 
SUBTRACT LOW BYTE 


SUBTRACT HIGH BYTE 


Local Symbol Table 

NUM1 2000 NUM2 2002 NUM3 2004 


Global Symbol Table 



( SB Carry ) 


Before we can write a program segment to do this subtraction, 
we need two new instructions. The first is very simple, and is just 
the opposite of the CLC we used in the addition subroutine (the 
term subroutine is used somewhat loosely here, but you get the 
idea). The mnemonic for the set carry instruction is SEC, and the 
machine language op code for this instruction is $38. Like CLC, 
there is no operand. 

SBC ( SuBtract with Cany ) 

To actually do the subtraction, we need the instruction, 
subtract with carry (remember that there isn't really a "borrow flag” - 
we're using the carry flag, and hence the name of the instruction). 
The mnemonic is SBC, and the machine language op code is $ED. 
As with ADC, we must first load one of the numbers involved into 
the A register (in this case, we load the number we want to subtract 
from into the A register). The operand of SBC is the 2-byte address 
of the number we wish to subtract. (For those who love math 
vocabulary words, load the minuend into the A register, and use the 
subtrahend as the operand of SBC.) This instruction subtracts a 
number in memory from the number in the A register. 


Now we can design a subroutine to do this subtraction. The 
program segment should do the following: 

1) subtract 2-byte signed or unsigned numbers 

2) use labels instead of actual addresses where possible 

3) set the carry flag first 

4) subtract low bytes before high bytes 

GENERAL EQUATION: NUM3 = NUM1 - NUM2 

Try your program, as we did with the addition program. You will 
need to use the Apple monitor to enter data into the memory 
locations corresponding to NUM1 and NUM2. Check the 
assembler listing (Listing 5. A). Are the results what you expected? 
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PROBLEMS 

« * 

5.1. Use the same ideas to write a subroutine to do a 3-byte 
subtraction. The general equation is still the same, as is most of the 
program design. Assemble your program, and execute it several 
times with the data shown below. Check the results stored in 
memory after each execution. The assembler listing for this 
program is Listing 5.1, in Appendix A. 

$000000 $ABCDEF $123456 

-$000001 - $123456 - $ABCDEF 
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Incrementing a Value in Memory 

* 

(One More Time!) 


Now you can add and subtract, and if you use your 
imagination, you can probably think of ways to use these two skills 
to perform a myriad of other operations. That's good, because 
addition and subtraction are the two main math tools you’ve got. 
The 6502 instruction set doesn't include multiplication, division, 
exponentiation, and a lot of other conveniences you may have 
come to take for granted. It does include a few time-savers, though, 
since the whole point of programming in assembly language rather 
than in a high-level language is efficiency from the machine's point 
of view. Since we've invested so much time and effort in addition 
and subtraction, we'll look now at a related operation which can save 
some time when your program is executed. 


INC ( INCrement ) 

The instruction we're going to look at next is increment a value 
in memory (INC). To increment, in this case, means to add 1 to 
something. While it is correct to say (in a BASIC program, for 
example) that a variable is being incremented by 1 , or by 5, or by 
129, this is not the case in assembly language. Here, when we say 
increment, we mean specifically that a value has been increased by 
1 . Since this is a commonly used operation (particularly when 
constructing loops), any savings of time can be a real benefit. 

' J 

There is one misconception that should be dealt with before 
we start using this new instruction. Because INC increments a value 
in memory, and because it's faster than doing the same thing using 
ADC, some people get it into their heads that INC operates directly 
on the value in memory, without using the CPU at all. This is not the 
case! The value must still be brought into the CPU so the gremlin 
running the Arithmetic/Logic Unit can wave his hands, or whatever 
he does, to make it all happen. 
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The machine language op code for INC is $EE. This 
instruction requires (as an operand) the address of the value it is to 
increment. 

If you have lots of faith, and believe everything we tell you 
without further explanation, you may want to skip over the 
discussion which follows. (You may also want to send for our new 
brochure, Dream Homes From Swamp Land). We’ll spend a little 
time at this point going through the exact process which takes place 
in the CPU when the INC instruction is executed, so that when we 
say that we can save a certain number of clock cycles by using one 
method over another, you'll at least have an idea of what we're 
talking about. 

One clock cycle is the smallest unit of time that an operation 
can take. If the 6502 microprocessor is running at 1 megahertz (one 
million cycles per second), one clock cycle is one millionth of a 
second. It may seem like a lot of fuss and bother to try to save a few 
millionths of a second here and there, but if you can save 5 
millionths of a second on an operation that you must repeat 2 million 
times, you've just saved 10 seconds. Even 10 seconds may not 
seem like much to someone who hasn't waited, and waited, and 
waited while a computer "thinks'' about things, but we know better, 
don't we? Even much smaller savings of time are crucial to the 
smooth running of a video game or animation. Consider the 
following: 

NUM1 EQU $2000 

INC NUM1 

What really happens when this is executed? In the outline 
which follows, the program counter is the only register we’ll be 
looking at directly. We'll also consider the address bus and the data 
bus, which are the lines used for transferring information between 
the CPU and memory. We won't go into how the arithmetic/logic 
unit actually does arithmetic - what we're concerned with here is not 
the electronics, but the general sequence of events. It may help to 
think of the CPU as having a scratch pad on which information is 
temporarily recorded. Remember that the program counter is a 
2-b>ie register, and the address bus is also two bytes long, but that 
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the data bus is only one byte. We are looking only at the INC 
instruction, and we'll assume that it is stored beginning at $800. As 
a matter of quick review, the program counter (PC) is keeping track 
of the byte of memory we are to look at next for op codes or 
operands; it is incremented each time its value is loaded onto the 
address bus (in other words, each time we use another byte of the 

program). We'll assume that we have stored $D4 in memory 
location $2000 (NUM1). 


CYCLE 

PC and BUSSES 


WHATS GOING ON 

1 

PC 

$08 

00 

the address of the op code is 





loaded onto the addressbus; 
the op code is returned on the 


ADD. BUS 

$08 

00 

data bus, and is written down 
on the scratch pad; the 


DATA BUS 


$EE 

program counter is 

• 




incremented 

2 

PC 

$08 

01 

the address of the low byte of 
the operand is loaded onto 


ADD. BUS 

$08 

01 

the address bus; the low byte 
of the operand, which is the 

• 

DATABUS 


$20 

low byte of the address of the 
(NUM1), is returned on the 
data bus and written down on 


• 



the scratch pad; the program 
counter is incremented 

3 

PC 

$08 

02 

the address of the high byte 
of the operand is loaded onto 


ADD. BUS 

$08 

02 

the address bus; the high 
byte of the operand, which is 


DATA BUS 


$20 

the high byte of the address 


of the value to be 
incremented (NUM1) is 
returned on the data bus and 
written down on the scratch 
pad; the program counter is 
incremented 
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4 PC $08 03 

* 

ADD.BUS $08 02 
DATA BUS $DA 


5 PC $08 03 

ADD. BUS not in 

USG 

DATA BUS not in 

use 

6 PC $08 03 

ADD.BUS $20 00 
DATA BUS $D5 


the address of the value to be 
incremented (NUM1) is 
loaded onto the address bus; 
the value to be incremented 
is returned on the data bus, 
and written on the scratch 
pad; the program counter is 
not incremented because we 
have not fetched another byte 
of the program in this cycle 
(we only retrieved data from 
memory, not part of the 
program itself) 

the value brought in during 
cycle 4 is incremented on the 
scratch pad; the program 
counter is not incremented for 
the reason explained above 
(see cycle 4) 

the address of the value 
which was just incremented is 
loaded onto the address bus; 
the new value is sent out on 
the data bus to its old memory 
location; the program counter 
still points to $803, which is 
the location of the next 
instruction 


This whole process required 6 clock cycles to accomplish. If 
we went the route of LDA, ADC, STA, we would need at least 10 
cycles. We won't be going through all this with any other 
instructions, and it's not necessary that you be able to recite this 
outline in your sleep, but sometimes it helps to have a little bit of an 
idea of what's really going on when we give the computer a 
command. If you're interested in the number of cycles required for 
various instructions, check in the ORCA documentation. 
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We’ve now seen how a 1-byte number may be incremented. 
What happens if a 2-byte number must be incremented? We 
probably have to increment the low byte first (we do everything else 
low byte first, why not this?). Do we also increment the high byte? If 
we think about addition for a moment, we c^n see a parallel to our 
need for a carry flag. Under some conditions, we won't need to 
increment the high byte. But, if the incrementing of the low byte 
would have generated a carry when done by simple addition, then 
we'll have to increment the high byte as well to take care of this 
"carry". We've come to a point where we (oops, the computer) will 
have to make a^decision. . 

We're about to learn some instructions that will allow us to (1) 
make decisions and (2) branch to different parts of the program 
depending on the results of those decisions. We'll also take a look 
at another bit of the processor status register, called the zero flag, 
which we can use as part of those decisions. 

The ZERO FLAG 

So far, we've really only paid attention to one bit of the 
processor status register. This is referred to as the first bit, or C-bit, 
or carry flag. When this bit is 1 , it tells us that a carry has occurred 
(or, if we're subtracting, that a borrow has not occurred). When it is 
0, we know that there has been no carry (or that we have borrowed). 
The next bit we'll consider is called the second bit, or Z-bit, or zero 
flag. It's just as easy to understand. If the Z-bit is 1 , it means that the 
last operation resulted in zero . If the Z-bit is 0, it means that the last 
operation's result was non-zero . The zero flag can be affected by 
the following instructions we've explored so far: LDA, ADC, SBC, 
and INC. This is by no means a complete list of the instructions that 
can affect the zero flag. We'll add more as we encounter them. 

Let's look again at the carry flag and zero flag, and what they 
represent: 


CARRY 

: true 

means 

C-bit = 1 


false 

means 

C-bit = 0 

ZERO 

true 

means 

Z-bit = 1 


false 

means 

Z-bit = 0 
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1 


Brief mention of this was made in the first session. True 
conditions are generally represented by 1 , and false conditions by 0 
(like any rule, there may be exceptions of sorts: when we used the 
carry flag as a "borrow" flag, it was used in reverse, so a 1 in the C-bit 
meant that no borrow had been done, and a 0 in the C-bit meant 
that a borrow had occurred). 

While the INC instruction does affect the zero flag (if the result 

of the incrementing process was zero, this bit will equal 1), it does 

not affect the carry flag, which is altered as a result of ADC or SBC, 
but not as a result of INC. 

How will this help us decide whether both bytes of a 2-byte 

number need to be incremented? Incrementing is just adding 1, 

and the only time adding 1 will generate a final "carry" is when we 

add 1 to 255 ($01 + $FF). If we use ordinary computer addition to 

add these two numbers, limits of precision will cause the final carry 

to be lost in the bit bucket. The result (or what's left of it, anyway) 

would be $00. Since this is how the INC instruction works, the only 

time there is a final carry for us to worry about is when the result of 

the low byte addition is zero. We can check this by looking at the 
zero flag: 

INC NUM1 

if Z-bit = 1 , then INC NUM1+1 


if not, then skip that step 

This makes plenty of sense for humans, but doesn't translate 
too well for computers. What we need is an instruction that will let us 

skip over a line or lines if the zero flag is not set; that is, if the value of 
the Z-bit is zero (false). 


(increment the low 
byte) 

(if the result is 0, then 
increment the high 
byte) 


BNE ( Branch Not Equal ) 

This mnemonic is short for Branch Not Equal (branch to a line 
in the program out of the ordinary sequence, if the zero flag shows 
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that the last operation did not result in a zero). The machine 
language op code is $D0. This instruction requires a one byte 
operand which is the displacement from the end of the instruction 
and its operand to the branch point (the line you want the computer 
to go to). Sounds a little tricky, no? It can be a little tricky, yes. The 
hard part is counting bytes to tell the computer where to go (this is 
not to be confused with irrational and possibly unprintable things 
you may have said to your innocent little Apple when its only crime 

w 

was doing what you told it to do). There is a way out, however. Look 
at two versions of the same program, compared below. One uses 
labels to make life easy. The other accomplishes the same thing, 
but is much harder to code. You may assume that both programs are 
stored beginning at $800. In the second example, comments have 
been added to show which memory locations are occupied by each 
line of the program. 


NUM1 

EQU 

INC 

$2000 

NUM1 

1 

1 

1 

INC 

$2000 

(uses 

$800, 

801, 


BNE 

PAST 

1 

1 

BNE 

$808 

802) 

(uses 

$803, 

804) 


INC 

NUM1+1 

1 

INC 

$2001 

(uses 

$805, 

806, 

PAST 

BRK 


1 

BRK 


807) 

(uses 

$808) 

• 


You can see from the second example that the BNE causes 
the program to branch to a point 3 bytes from the end of the BNE op 
code and operand. These end at $805, and we want to go to $808. 
This is an example of what is called relative addressing (an address 
relative to where we are now). We'll learn more about various 
addressing modes in Session Six. 

By using the label, PAST, in the first version of the segment, 
we avoid entirely the problem of counting the bytes needed to 
store the program. We also make the program easier to modify: if 
we need to add several lines of code before "INC NUM1”, we can do 
so without having to recount bytes to code the BNE line correctly. 
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The first version has several features which qualify as good 
stuff. First, we use mnemonics, not numeric op codes which are 
hard to remember. Second, we used a name for a number, by using 
the label NUM1 to refer to the address of the number we’re 
incrementing. And, as mentioned before, we can branch to a label 
and avoid having to count bytes. Our program is thus much more 

readable and easily modifiable. 

» * 

Can we increment negative numbers? Sure. There are no 

special rules to follow. However, you may want to review what you 

know about negative numbers (two's complement, and all that). 

Remember that $FFFF and -1 are one and the same, and only 

context tells them apart. We would expect incrementing -1 to give 

us 0, and that is the case. But $FFFF can also represent 65535, 

and incrementing that gives us 0 as well, because of limited 
precision. 


To be sure that you understand what's going on in this 
program segment, let's look at a few examples of two-byte 
incrementing (first we'll increment $04, then $FF, $FDFF & $FFFF): 


NUM1 

EQU 

$2000 

| 2000 : 04 00 ($04 stored at $2000 

w 



I $00 stored at $2001) 


INC 

NUM1 

j 2000: 05 00 ($05 stored at $2000 

♦ 



I $00 stored at $2001 ) 


BNE 

PAST 

• 

I $04 + $01 <> $00 so branch to 




1 PAST 


INC 

NUM1+1 

1 **** NOT EXECUTED **** 

PAST 

BRK 


j Arrive here from BNE 

NUM1 

* 

EQU 

$2000 

| 2000: FF 00 ($FF stored at $2000 

* 



I $00 stored at $2001) 


INC 

NUM1 

| 2000: 00 00 ($00 stored at $2000 

. ft 



| $00 stored at $2001 ) 


BNE 

PAST 

| $FF + $01 = $00 (limits of 




1 precision), so no branch 


INC 

NUM 1+1 

2000:00 01 ($00 stored at $2000 

* 



$01 stored at $2001) 

PAST 

BRK 

«• ™ 

Arrive here after incrementing high 


byte 
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NUM1 

EQU 

$2000 

1 

2000: FF FD ($FF stored at $2000 

* 



1 

$FD stored at $2001 ) 

- 

INC 

NUM1 

1 

2000: 00 FD ($00 stored at $2000 

* 



1 

$FD stored at $2001 ) 


BNE 

PAST 

1 

$FF + $01 = $00 (limits of 

- 



1 

precision), so no branch 


INC 

NUM1+1 

1 

2000: 00 FE ($00 stored at $2000 

* 

- 


I 

$FE stored at $2001 ) 

PAST 

BRK 

• 


Arrive here after incrementing high 

♦ 



1 

byte 

NUM1 

EQU 

$2000 

1 

2000 : FF FF ($FF stored at $2000 

♦ 



I 

$FF stored at $2001 


INC 

NUM1 

1 

2000: 00 FF ($00 stored at $2000 

* 



1 

$FF stored at $2001 

• 

BNE 

PAST 

1 

$FF + $ 01 - $00 (limits of 




1 

precision), so no branch 


INC 

NUM1+1 

1 

2000: 00 00 ($00 stored at $2000 

* 



1 

$00 stored at $2001) 


PAST 

BRK 

1 

Arrive here after incrementing high 

it 



1 

byte 


Using these examples for guidelines, determine what will 
occur when the program we've been using is applied to the 
following situations: 

2000: 01 FF 

2000: FA 27 

2000: 5DA6 

Check your results by determining the decimal value you 
started with (is it positive or negative?) and determining what the 
correct incremented value should be. Then convert to hex and see 
if your prediction matched your answer. This is good practice, not 
only for working with increments, but also for a review of hex and 
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decimal relationships; determining whether your program does what 
it's supposed to do is an important skill that beginning programmers 
often overlook in their delight that the program does, indeed, run. 
Running alone is no guarantee of success - ask any football player 
who recovered a fumble or intercepted a pass and then ran brilliantly 
into the wrong end zone. It's always worth the time to try to predict 
results so you have some measure of your program's validity for the 
problem you're solving. 

Before we use this convenient branching instruction (BNE) 
any further, let's take a closer look at how it operates. We will use 
several machine language examples - this will give you a little review 
of machine language at the same time. 


The op code for BNE is $D0. What happens with each of the 
following? 


EE 00 20 
DO 03 
EE 01 20 
00 


increment low byte 
to branch, or not to branch... 
increment high byte 
break 


This example is the one we've been working with. The branch 
causes the next three bytes to be skipped, so we avoid 
incrementing the high byte if the branch was selected. 


EE 00 20 increment low byte 

DO FE branch? Note that FE = -2! 

EE 01 20 increment high byte 

00 break 

« * 

This example shows a negative displacement - we branch 
backward! In fact, we will be in an infinite loop if the branch is 
chosen. We would go back 2 bytes, to the same BNE, with the 
same result, over and over. Now take a very careful look at this one: 


EE 

00 20 

increment low byte 

DO 

FB 

branch? Note that FB = -5 

EE 

01 20 

increment high byte 

00 


break 
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If the low byte is not zero (the low byte is what we were calling 
NUM1), we will branch back to the increment s tep over and over 
until NUM1 does equal 0! As you can see, it's important to be very 
careful of the relative branches that you set up. This is a good 
motivation to use labels, rather than addresses, to make the 

branches much clearer to you as you code. 

» _ * 

It's also important to consider what limits are placed on this 
kind of branching (yes, there's a limit to everything). Our machine 
language op code requires a 1-byte operand. One by-product of 
the two's complement method of representing negative numbers is 
that the highest place value bit of a 1-byte number is referred to as 
the "sign bit". When the sign bit is 0 (for 1-byte integers of value 0 
to 127), the number is considered positive. When the sign bit is 1 
(for 1-byte integer values of 128 to 255), the number is generally 
considered negative (128 corresponds to -128, and 255 
corresponds to -1). Therefore, the largest positive number we can 
have would have a 0 for the sign bit and 1's for all other bits: 

01111111 = $7F = 127 

The smallest negative number we can have would have a 1 for 
the sign bit and 0's for the other bits: 

10000000 = $80 = -128 

This number (%1 0000000, or $80, or -128) is a symmetric 
number - if you add it to itself, you get zero. (Another way of saying 
this is to say that this number is its own additive inverse). 

These numbers define the limits to our relative branching: 127 
bytes forward, or 128 bytes backward. Since we must count from 
the end of the BNE instruction and its operand, we adjust these 
limits to make them a little more practical (so we don't have to count 
the bytes in the instruction). The adjusted limits are -126 (we took 
away the 2 bytes of the instruction) to +1 29 (we added the two 
bytes of the instruction). If you attempt to use BNE with wider limits, 
you will be informed of your transgression with: 

ERROR: Relative Branch out of Range 
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PROBLEMS 

5.2. Write an assembly language program that will increment a two 
byte number at $2000. Try it on the following numbers. 
(Remember to put them into memory, low byte first.) The assembler 
listing for this problem is Listing 5.2 in Appendix A. 

$0000 $0001 $000F $00 FF 


$0100 $FFFF 
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Decrementing 


(Take It Away, Sam) 


DEC 


( DECrement ) 


Now that you know all you ever wanted to know about 
incrementing values in memory, and have at least one way to 
branch within a program or program segment, we're going to 


introduce the idea of DECrementing a value in memory. It’s very 


similar to incrementing, with the main difference being the condition 
on which we branch. The mnemonic is DEC, and the machine 
language op code is $CE. Its operand is a 2-byte address for the 
value to be decremented. This instruction is also a time-saver, 
compared to loading the value into the A register and then 
subtracting 1. 


Rather than telling you right away, we'll give you a chance to 
experiment a little to find out when you want to choose to 
decrement the high byte. As you probably expect, we begin by 
decrementing the low byte, just as we began a 2-byte subtraction 
by subtracting low bytes. There must be some condition that we 
can test using BNE to determine whether we want to decrement the 
high byte, or skip that line in the program. To simplify our search for 
a pattern, we'll go back to the idea of decrementing as subtracting 1 , 
and see what parallels there may be between INC viewed as 
addition and DEC viewed as subtraction. 

We discovered that high bytes only had to be incremented if 
there was a situation which required a carry from the low byte 
addition. In this case, the sum had been $00, and it only occurred if 
the low byte was $FF ( $FF + $01 = $00 plus a carry). Since we 
were using INC instead of ADC, there was no way to use the carry 
flag, so we added the low bytes and checked to see if the sum was 
$00. If it was not, there was no carry, and we could branch around 
the step that incremented the high byte. Subtraction doesn't 
involve carrying, it involves borrowing. If you're subtracting $01 
from a number, when would you have to borrow? Only when you're 
subtracting from $00! So when we're decrementing, we don't want 
to subtract first and then decide about the high byte decrement. 
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Rather, we must look at the low byte to see if it equals zero. If it 
does not, we can skip the high byte decrement. Try the idea out by 
carefully following these examples: 


$00 03 

$FF FF 

$0A91 

$FD 00 

$ 01 

- $ 01 

- $ 01 

- $ 01 

$00 02 

• 

$FF FE 

$0A 90 

$FC FF 


Note that only in the last example was it necessary to 
decrement the high byte (in essence, to borrow from the high byte 
to complete the subtraction). Why can't we decrement the low byte 
and then check? Consider the following example: 


Original value: 

$00 

01 

After DEC: 

$00 

00 

Low byte = $00? 

YES 

DEC high byte 

$FF 

00 

Expected value 

$00 

00 


Common sense tells us that if we decrement 1 we should get 
0. But because we checked the value of the low byte at the wrong 
time, we have an invalid result. Our two-byte decrement, then, will 
look like this: 

NUM1 EQU $2000 

LDA NUM1 

BNE PAST 

DEC NUM1+1 

PAST DEC NUM1 

Trace through this program segment and determine the 
results if the following values are stored beginning at $2000: 

• m 

2000: 00 4D 2000: 29 FF 2000: F8 03 

* • 

Again, you can check your results by determining the decimal value, 
decrementing it, and changing the answer back into hex to compare 
to your first results. 
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PROBLEMS 


5.3. Write an assembly language program to decrement the two 

byte number at $2000 (the assembler listing is Listing 5.3 in 

Appendix A). Check its operation on these values from an earlier 
example: 

$0003 $FFFF $0A91 $FD00 


5.4. A simple-minded multiply routine would add one of the 
numbers together as many times as indicated by the second 
number. For example, 4*3 is 4+4+4. If we wish to multiply NUM1 by 
NUM2 and place the result in NUM3 (and are not worried about 
destroying NUM2) we could use the following algorithm: 

NUM3 = 0 

TOP NUM3 = NUM3 + NUM1 

NUM2 = NUM2 - 1 
IFNUM2> 0THEN 
GOTO TOP 

The last step is a bit tricky. Convince yourself that the following 
code does the job of the IF-THEN statement above: 

LDA NUM2 

BNE TOP 

LDA NUM2+1 

BNE TOP 

It is only fair to point out that this is not the best way to do the check 
- but it is the best way to do it using only the instructions that you 
know so far. Now write a program to multiply a two byte number at 
$2000 by one a $2002, saving the result at $2004. Try it on several 
examples of your own choosing. The assembler listing for this 
program is Listing 5.4 in Appendix A. 
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5.5. One of the limitations of the multiplication program in problem 
5.4 is that if $2002 has a zero, it adds $2000 to $2004 65536 times. 
It turns out that this gives the correct answer (why?), but it is 
inefficient. Add a test to your program to skip the multiplication loop 
if $2002 is zero. The solution is shown in Listing 5.5 in Appendix 
A. 
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Session Five Summary 
Apple Monitor Commands 

w 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program 
read memory 

set (enter values into) memory 
Assembly Language Instructions 


ADC - 

add with carry 

BNE - 

branch not equal 

BRK - 

break 

CLC - 

clear carry 

DEC - 

decrement 

INC - 

increment 

LDA - 

load A 

SBC - 

subtract with carry 

SEC - 

set carry 

STA - 

store A 


Addressing Modes 

absolute 

implied 

relative addressing 

Assembler Directives 

comments 

END 

EQU 

KEEP 

PRINTER 

START 

Processor Status Flags 

* 

C - carry flag 
Z - zero flag 
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SESSION SIX 

Addressing Modes I 

(Third Byte on the Left) 


Immediate Addressing 

4 

(Don't Forget the Zip Code!) 

Up to this point, we have covered three different addressing 
modes. What does this really mean? To answer the question, we 
will first introduce a fourth addressing mode and see how it 
operates. We'll then look at the instructions we've discussed so far 
to determine which of them can be used with this new addressing 
mode. The three addressing modes we've encountered so far are: 

ABSOLUTE: exact address is given in operand field 

(LDA, STA, ADC, SBC, INC, DEC) 
IMPLIED: no operand at all 

(CLC, SEC, BRK) 

RELATIVE: how far to go from where you are (how 

many bytes forward or backward) 

(BNE) 

The new addressing mode, immediate addressing , uses a pound 
sign (#) as the first character in its operand, to indicate that a value, 
rather than an address, follows the op code: 

LDA #20 loads the value 20 into the A register 

Note that no ($) was used with the 20. This means that we have 
loaded a decimal number, 20, into the accumulator. If we want to 
load $20 (which is not the same number) into the A register, we 
would write: 

LDA #$20 
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If we want to enter a binary value into the A register, we use the 
symbol (%) to precede the numeral, thus indicating to the 
assembler that we are feeding it a binary, rather than hex or decimal, 
value. 

LDA #%1 01 01 

Up until now, we had to use the Apple Monitor to load values 
into particular memory locations, so that we could perform 
operations involving those values: 

* 2000:20 

was used to place the hex value 20 into the memory location with 
address $2000. (Remember that the Apple Monitor requires us to 
enter values in hex.) If we want to enter the decimal number 20, we 
must enter its hex equivalent, $14: 

* 2000:14 

In either case, once we've entered the value we want into memory, 
we then use: 

LDA $2000 

to place the value into the A register. Now, by using immediate 
addressing, we can do it all in one step: 

LDA #20 

This leads to another convenience. We can use this new 
addressing mode to eliminate the need for using the Apple monitor 
at all for placing values into memory, by combining LDA immediate 
with STA: 

LDA #20 
STA $2000 

* 

Yes, it does require two instructions, but it saves us the trouble of 
hopping back and forth between the Apple Monitor and ORCA. 
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At this point, you may be wondering how the computer can tell 
which LDA we mean. This is part of the job of an assembler. ORCA 
looks at both LDA and its operand, and decides, based on the 
operand, which instruction you meant. The machine language op 
code for LDA absolute (the first version of LDA that we learned) is 
$AD, while the machine language op code for LDA immediate is 
$A9. When ORCA translates your assembly language program for 
the computer, it uses $AD where you used LDA absolute, and $A9 
where you used LDA immediate. When the computer sees $AD, it 
knows that it must load the Accumulator from a 2-byte address 
which will follow the op code. When it sees $A9, it knows that it 
must load the Accumulator with the 1-byte value which follows the 
op code. 

Several of the instructions we've studied so far can use 
immediate addressing in addition to absolute addressing. For those 
which cannot use immediate addressing, an explanation of the 
reason why not is given: 

LDA absolute & immediate 

STA absolute only: we need the address of the 

location where we want to store 
the value currently in the 
accumulator - immediate 
addressing supplies a value, not 
an address 

ADC absolute & immediate 

SBC absolute & immediate 

• 6 

INC absolute only: what good is it to increment a value 

that is stored only as a byte in the 
program, not as data? 

DEC absolute only: what good is it to decrement a 

value that is stored only as a byte in 
the program, not as data? 
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If you attempt to use an addressing mode which is not legal for 
a given instruction (that is, one for which there is no machine 
language op code), you will receive an "Illegal Addressing Mode" 
error message. 

Consider the following sample program segment, which 
illustrates the use of ADC with immediate addressing: 


IMADD 

ADR 


START 

EQU $2000 NUMBER TO ADD TO 

CLC IMMEDIATE ADDRESSING ADDITION 

LDA ADR 

ADC #10 
STA ADR 
LDA ADR+1 
ADC #0 
STA ADR+1 
BRK 
END 


Here's a line-by-line explanation: 


IMADD START 

ADR EQU $2000 

CLC 

LDA ADR 
ADC #1 0 

STA ADR 

* 

LDA ADR+1 
ADC #0 


assembler directive defining 
beginning of segment 

assign the value, $2000, to the label, 
ADR 

clear the carry flag 

load A with the value stored in ADR 
(the low byte of a 2-byte number) 
add 1 0 to the value in A (we have no 
carry to add since we cleared the 
carry flag before beginning) 
store the sum of the low byte addition 
back in ADR 

load A with the value stored in ADR+1 
(the high byte of the 2-byte number) 
add 0 to the value in A, and add in any 
carry generated by the low byte 
addition 
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STA ADR+1 store the sum of the high byte 

addition back in ADR+1 
BRK break 

END assembler directive defining end of 

segment 

The last three instructions (before BRK) of this program 
segment require 8 bytes of storage. (Immediate addressing mode 
instructions require two bytes, one for the instruction and one for 
the value. Absolute addressing mode instructions need three 
bytes.) Since we're in the business of streamlining and speeding up 
our programs wherever possible (without sacrificing readability, 
flexibility, and structure, of course), we'll now look into a shortcut 
that can save us 3 bytes, if we're adding less than 256 to the value 

in ADR. 

When we add a number smaller than 256, it can be 
represented by just one byte, which is the same as saying its high 
byte is zero. If there's no carry after the low byte addition, we don't 
need to bother with the high byte addition. All we need is a new 
branching instruction that will look at the carry flag and skip over the 
unnecessary steps if it is still cleared. And suppose the carry flag 
has been set? Since the high byte of the number we were adding is 
zero, all we have to add is the carry. Since the carry is 1 , we can do 
this most efficiently by incrementing the high byte. 


BCC ( Branch on Carry Clear ) 

• % 

The new branching instruction is Branch on Carry Clear (BCC). 
Its machine language op code is $90, and like BNE, it uses relative 
addressing. The easiest way to determine the operand is to use a 
label - that way, you don't have to count bytes to figure out where 
you want the computer to go. Just as with BNE, if you use a label for 
the operand, the assembler uses the value assigned to that label to 
calculate the number of bytes to move, forward or backward. If you 
like to do things the hard way, you’ll have to figure out where the 
instruction you want the computer to go to is stored in memory, and 
use that 2-byte address as the operand. No, your memory is not 
playing tricks on you. Relative addressing does require a 1-byte 
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value for the distance to move, relative to where the program 
counter is when the branch occurs. You only have to tell the 
assembler the address you want to go to, however, and the 
assembler does the subtracting for you. It takes the address you've 
given it (where you want to go), subtracts the appropriate address 
(where you are now), and arrives at the number of bytes (positive or 
negative) of displacement (how long the branch is). We now rewrite 
the program segment as follows: 

IMADD START 

ADR EQU $2000 NUMBER TO ADD TO 

CLC SHORT ADD, 

LDA ADR IMMEDIATE ADDRESSING 
ADC #10 

STA ADR 

BCC LB1 

INC ADR+1 

LB1 BRK 

END 

The two lines beginning with BCC require only 5 bytes, 
compared to the three lines in the previous example, which 
required 8 bytes. This second program segment is both shorter 
(requires less memory for storage of the program) and runs faster 

(requires fewer clock cycles for execution). 

Now that we've looked at several ways of adding numbers, 
we'll expand this to a generalized addition routine, which will be the 
first part of the calculator program we said you’d have written by the 
time you finished working through all this. Obviously, we need to 
include a section of code that stores particular values in memory. 

We'll go through that code now, and then write out the complete 
general addition routine. 

• • 

NUM2 EQU $2002 

* 

LDA #10 
STA NUM2 
LDA #0 
STA NUM2+1 



ORCA/EZ 1.0 


0001 

0800 



PRINTER ON 



0002 

0800 

- 


KEEP 

PR0G6.A 

. OBJ , V100 


0003 

0800 


**************************************** 

0004 

0800 


* 



. 

* 

0005 

0800 


* 

LISTING 6. 

A 


* 

0006 

0800 


* 




* 

0007 

0800 


* 

SECTION 6*1 EXAMPLE PROGRAM 

* 

0008 

0800 

• 

* 




* 

0009 

0800 

• 

* 

THIS PROGRAM IS A 

GENERALIZED 

* 

0010 

0800 


* 

IMMEDIATE 

ADDRESSING ADDITION 

* 

0011 

0800 


* 

ROUTINE FOR TWO-BYTE INTEGERS 

* 

0012 

0800 


* 



V 

* 

0013 

0800 


* 

I NPUTS : 

0 


* 

0014 

0800 


* 

NUM1 - FIRST 

ADDEND 

* 

0015 

0800 


* 

NUM2 - SECOND 

ADDEND 

* 

0016 

0800 


* 




* 

0017 

0800 


* 

OUTPUTS: 



* 

001S 

0800 


* 

NUM3 - 

- NUM1+NUM2 

* 

0019 

0800 


* 




* 

0020 

0800 


**************************************** 

0021 

0800 

0 

* 





0022 

0800 


PROG60 START 



4 

0023 

0800 


NUM 1 EQU 

$2000 

FIRST ADDEND 


0024 

0800 


NUM2 EQU 

$2002 

SECOND ADDEND 


0025 

0800 


NUM3 EQU 

$2004 

SUM 


0026 

0800 







0027 

0800 


• 

t 

INITIALIZATION 

BLOCK 


0028 

0800 



• 




0029 

0800 

A90A 


LDA 

#10 

INITIALIZE NUM1 


0030 

0802 

8D0020 


STA 

NUM1 


• 

0031 

0805 

A900 


LDA 

#0 



0032 

0807 

8D0120 


STA 

NUM1+1 



0033 

080A 

A914 


LDA 

#20 

INITIALIZE NUM2 


0034 

080C 

8D0220 


STA 

NUM2 



0035 

080F 

A900 


LDA 

#0 



0036 

0811 

8D0320 


STA 

NUM2+ 1 



0037 

0814 







0038 

0814 


5 

ADDITION 

BLOCK 



0039 

0814 





• 


0040 

0814 

18 


CLC 


CLEAR CARRY FLAG 


0041 

0815 

AO0020 


LDA 

NUM1 

LOW BYTE ADD 


0042 

0818 

6D0220 


ADC 

NUM2 


* 

0043 

081B 

8D0420 


STA 

NUM3 

• 


0044 

08 IE 

AD0 1 20 


LDA 

NUM1+1 

HIGH BYTE ADD 


0045 

0821 

6D0320 


ADC 

NUM2+1 



0046 

0824 

SD0520 


STA 

NUM3+1 

* 


0047 

0827 

00 


BRK 

• 



0048 

0828 

60 


RTS 


• 


0049 

0829 

• 


END 





Local Symbol Table 

NUMi 2000 NUM2 2002 NUM3 2004 

* 

* 

Global Symbol Table 

• * 

p • • 

• w 

PROG60 0800 

• • * 



For those who are brave, now is the time to try to do this 
yourself, without looking at the code below until you've written your 
own. Even if you're not very brave, try it yourself anyhow. Then 
check what you've written against the code that follows. The outline 
above should give you all the direction you need (even if it doesn't 

give you all the direction you want V Listing 6. A shows how we did it. 

• % " • 

" m % 

Before we go on to other good stuff, like subtraction, other 
branching instructions, and more addressing modes, let's see what 
happens if we use an immediate value greater than 255 (which is 
$FF). Suppose that we wish to LDA #256, which is equivalent to 
LDA #$100. Unless you tell it otherwise, the assembler will use the 
least significant byte of the number you give it. This means that $00 
will be loaded into the Accumulator. There is, however, a way to 
load the most significant byte into the Accumulator instead, if that's 
what you need to do. This involves a small change in our immediate 
addressing mode notation: 

LDA #>256 or LDA #>$100 

Both use the "greater than" symbol to tell the assembler to load the 
most significant byte of the operand into the A register. Note that 
this convention is applied to the immediate addressing mode, 
regardless of the instruction (so the same will hold true for ADC and 
SBC as well, if you're using immediate addressing). If you should 
attempt to use a number longer than 2 bytes, you'll really confuse 
the issue (and the assembler). You'll get an assembler error 
message, "Number Overflow", and the assembler will attempt to 
truncate the number you gave it and do something meaningful with 
it. This would be OK if the assembler knew how to truncate 
numbers more than 2 bytes long, but it doesn't know how to handle 
them at all. The results will be unpredictable, and there mil be 
results, however odd, because after the assembler makes its 
attempt to truncate, it will continue crunching through your program 
as though it had a meaningful number to work with - and it doesn't. 
Another way to cause ORCA a great deal of consternation of the 
same sort is to create an overflow or underflow as a result of a 
multiplication or division in the operand. (If this sounds like an illegal 
activity, it's not). Several times we've used an expression involving 
addition in the operand, such as 


LDA NUM1+1 



Here is a line-by-line explanation: 

NUM2 EQU $2002 Assign the value, $2002, to the label, 

NUM2. This will be the address of 
the second number to be added in 
your general addition routine. 


LDA #10 Place the value you're eventually 

going to store in NUM2 into the 
Accumulator (in this case, the 
value is 10). It is the low byte of the 
number to be added. 

STA NUM2 The value, 1 0, is actually stored in the 

memory location whose address is 
referenced by NUM2. 

LDA #0 Place the value you’re eventually 

going to store in NUM2+1 into the 
Accumulator (in this case, the 
value is 0). It is the high byte of the 
number to be added. 

STA NUM2+1The value, 0, is actually stored in the 

memory location whose address is 
referenced by NUM2+1 . 


When we write the real, certified genuine, generalized 
addition routine, it will have two main parts: an initialization section, 
where we place the values we want to add into memory, and the 
actual code to do the addition. Since we said it was to be a bonafide 
program segment, we'll also include a block comment at the 
beginning, describing the routine. The exact order will be: 

BLOCK COMMENT 
START 

ALL EQUATES 

INITIALIZATION CODE 
ADDITION CODE 
END 
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It's quite possible that we might need to use multiplication in an 
operand expression; perhaps we have a table of addresses, and 
wish to do something to the value stored in the 12th address. Then 
the expression might be similar to 

LDA ADDR+11*2 

where the ADDR+11*2 references the 12th 2-byte address in the 
table ADDR. There are other occasions where subtraction or 
division might be useful. The point is that it's perfectly legal and 
often very efficient to use an expression as an operand, as long as 
you're careful to set up the operation so that it doesn't generate 
numbers that the assembler will consider to be errors, or will 
interpret differently than you intend. Here's a summary of what to 
watch out for: 

LDA 100000 -> overflow error; the operand is too 

large (it would require 3 bytes to 
represent in hex) 

LDA #$FFFF+1 -> no error message; as far as the 

assembler is concerned, the 
valueof the expression is $0000 
(the carry is lost to the bit bucket) 

LDA #$FF*FF*F -> overflow error; the operand is too 

large ($FF*FF*F=EE20F). The 
values used in multiplication 
and division are assumed to be 
signed (positive and negative) 
numbers; overflow and 
underflow can occur 

• 6 

Here's a practical example of how we can use immediate 
addressing to add 1 000 to a value in memory, without bothering to 
convert 1000 to hex and determining which is the high and which is 
the low byte. Two program segments follow; the difference 
between them is that the second uses a label for the value, 1000. 
This makes the program easier to read and modify. (If all these 
comments on programming style are starting to sound like they 

s 
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come from an infinite loop - good! You must get into the habit of 
doing it right.) 

IMADD 2 START 

ADR EQU $2000 DEFINE LABEL 

% * 

CLC 2-BYTE IMMEDIATE 

LDA ADR ADDITION - DECIMAL 

ADC #1000 

STA ADR 

LDA ADR+1 

ADC #>1000 

STA ADR+1 

BRK 

END 


Here is a line-by-line explanation: 

« 

IMADD2 START Define beginning of program 

segment 

ADR EQU $2000 Assign the value $2000 to the label, 

ADR 

CLC Clear the carry flag. 

LDA ADR Load the value stored at the 

memory location referenced by 
ADR into the accumulator (this is 
the low byte of the first number 
to be added). 

ADC #1000 The decimal value 1000 is 

converted internally to hex, and 
the low byte is added to the 
value in the accumulator. 

STA ADR The result of this addition is stored 

in the memory location referenced 
by ADR. 

LDA ADR+1 Load the value stored at the 

memory location referenced by 
ADR+1 into the accumulator 
(this is the high byte of the first 
number to be added). 



ADC 

STA 

BRK 

END 


#>1000 The decimal value 1000 is 

converted internally to hex, and 
the high byte is added to the 
value in the accumulator. 

ADR+1 The result of this addition is stored 

in the memory location referenced 
by ADR+1 . 

Break 

Define end of program segment. 


Here it is again, with the label we promised: 

IMADD3 START 
SIZE EQU 

ADR EQU 

CLC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
BRK 
END 

One further note is in order. In the second example, the line 
"ADC #SIZE" could be replaced by "ADC #<SIZE", in which the 
symbol for less than is used to indicate that the low byte of the value 
is to be used. This notation is required on some assemblers, 
including the original 6502 assembler syntax, it is permissible, but 
not mandatory, in ORCA. 

* 

Subtraction can be performed using immediate addressing, in 
almost the same way as addition is performed. There are a few 
differences, due to the difference between addition and 
subtraction. Remember that we begin subtraction with SEC rather 
than CLC, because we are using the carry flag as a borrow flag. We 


1000 

DEFINE LABELS 

$2000 

2-BYTE IMMEDIATE 

ADR 

ADDITION - LABELS 

#SIZE 

ADR 

ADR+1 

#>SIZE 

• 

ADR+1 
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can use a shortcut similar to the one we developed for addition of a 
number less than 256, but since we will want to decrement the high 
byte only if there was a borrow necessary for the low byte 
subtraction, we will need a different branching instruction. If there 
was no borrow, the carry flag will still be set, and it is this condition 
which we wish to test for in our branching instruction. 


BCS ( Branch on Carry Set ) 

This new branching instruction is Branch on Carry Set (BCS). 
Like BNE and BCC, it uses relative addressing. It is easiest to use a 
label for the operand, though you can use the address of the 
instruction you want to branch to. Just as with BCC, the assembler 
will recognize that you are using relative addressing, and compute 
the number of bytes forward or backward necessary for the branch. 
See the discussion of BCC for more details. 

The two sample code segments below illustrate a general 
subtraction using immediate addressing, and a special case 
shortcut which can be used if the number to be subtracted is less 
than 256. You may wish to compare these two program segments 
with the two addition segments shown earlier. 


$2000 DEFINE LABEL 

IMMEDIATE ADDRESSING 
ADR SUBTRACTION 

#10 
ADR 
ADR+1 
#0 

ADR+1 


IMMSUB START 
ADR EQU 

SEC 

LDA 

SBC 

STA 

LDA 

SBC 

STA 

BRK 

END 
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IMSBSC 

START 

- 

* 

ADR 

EQU 

$2000 

DEFINE LABEL 


SEC 


IMMEDIATE SUBTRACTION 


LDA 

ADR 

SHORTCUT 


SBC 

#10 

• 


STA 

ADR 

- 


BCS 

LB1 



DEC 

ADR+1 


LB1 

BRK 


• 


END 




Note that (for both addition and subtraction) the shortcuts 
don't work if we try to store the results in a third location (if we do 
that, we won't be able to do the DEC, since DEC operates on 
memory, and does not allow the results of the decrement to be 
stored directly into a third location). 

We now have a total of three branching instructions, all of 
which use relative addressing, and all of which test a condition in the 
processor status register to determine whether or not to branch. 
They are : 

BNE Branch if Not Equal 

BCC Branch on Carry Clear 

BCS Branch on Carry Set 
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Zero Page Addressing 

» * 
s 

(Will Shortcuts Never Cease?) 

Now that the idea of addressing modes is a little clearer, we're 
ready to explore the use of a fifth addressing mode, zero page 
addressing , which can be used by the six instructions we've used 
so far that also use absolute addressing (LDA, STA, ADC, SBC, 
INC, and DEC). First we need to define what is meant by a "page" 
of memory, and how the page of a given address may be 
determined. 

• • • 

■ 

It takes two bytes to specify an address. A "page" of memory 
is defined to be all the locations whose addresses have the same 
high byte. Since a byte can represent numbers from 0 to 255, there 
are 256 bytes per page, and 256 pages of memory: 


PAGE 

BYTE 

• 

00 

00 

ZERO PAGE 

00 

01 

• • 

00 

02 


00 

• 

03 

• 

• 

• 

00 

• 

FF 


01 

00 

PAGE ONE 

01 

01 

• 

01 

02 

• • 

• 

01 

• 

03 

• 

• 

• 

01 

• 

ft 

FF 

. 

02 

00 

PAGE TWO 

02 

01 

• 9 

02 

02 

% 

02 

03 

■ % • 

: 

ft 

ft 

etc. 


Zero page, then, consists of all the addresses whose high 
byte is zero. This has some real advantages. We can still use all the 
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instructions we've learned that use absolute addressing, but if the 
address we use for the operand is a zero page address, we only 
need to specify the low byte (since we know the high byte is zero). 
Of course, although the mnemonic is the same, the machine 
language op code is different for instructions using zero page 
addressing. This type of addressing saves one byte of memory and 
one clock cycle of execution time each time we use it. It may not 
seem like much right now, but as we said before, when speed 
counts, a savings of one cycle in an instruction that's executed 5 
million times saves you five whole seconds. 

6 • • 

As usual, the assembler does most of the work for us. If you 
use 


LDA $04 

the assembler assumes you want zero page addressing, and uses 
the appropriate op code. If you use 

LDA $0004 

the assembler recognizes that the high byte is zero, and 
automatically uses the zero page op code for LDA. (Note to users 
of O RCA/M: a label defined in the main program without the use of 
a global equate - GEQU - will use absolute, rather than zero page, 
addressing, to avoid problems in page zero. This is due to a 
difference in the way ORCA/EZ and ORCA/M assemble programs, 
since the ORCA/EZ assembler does not have a link editor). ORCA 
also allows you to use zero page addressing for equates (EQU): 

NUM EQU $04 

LDA NUM 

The label, NUM, uses zero page addressing. The assembler will 
recognize this, just as it recognizes zero page addressing for LDA 
when the actual address is used. 
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The chart below summarizes the addressing modes which can 
be used by the instructions we've used so far. Op codes for each 
mode are given: 


MNEMONIC ABS IMM ZP IMP REL 


LDA 

$AD 

$A9 

$A5 

STA 

$8D 


$85 

ADC 

$6D 

$69 

$65 

SBC 

$ED 

$E9 

$E5 

INC 

$EE 

• 

$E6 

DEC 

$CE 


$C6 


CLC 

SEC 

BRK 


$18 

$38 

$00 


BNE 

BCC 

BCS 


$D0 

$90 

$B0 


Like all good things, zero page can cause problems if used 
incautiously. The most important thing to watch out for is the use of 
a label in a program or program segment before it is defined. This 
causes the assembler a great deal of confusion between its first 
and second pass through your program. The easiest way to avoid 
this kind of mixup is to define every label before use (this ought to 
make sense to anyone - ever try to figure out what kind of 
vegetables were in a tin can without a label?), so it is strongly 
recommended that you devote the first part of any program or 
segment to defining all the labels that will be used in that program or 
segment before you write any other code. This avoids the problem, 
increases readability, and shows the world that you have style. 
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Indexed Addressing Modes and Looping 

(Around, and Around, and Around We Go...) 


It's time to look at two registers we have pretty much ignored 
up until now - the X and Y registers. When we first discussed the 
registers in the 6502, we said that these were used primarily for 
indexing, and now we're going to find out what that means. 


We will be looking at two new addressing modes, i 

and i 





These 


are used primarily for data in tables, where the absolute address or 
zero page address marks the beginning of the table, and the index 
(whether X or Y) is used to indicate how far into the table the 
microprocessor must go to fetch the information requested. Two 
such instructions, and their machine language equivalents, are 
shown below: 


BD 00 20 <-> LDA $2000, X 

B9 00 20 <-> LDA $2000, Y 

The op code, $BD (or $B9) means, "LDA with indexed 
absolute addressing using the X (or Y) register” (which is quite a 
mouthful for a single byte). The address which is actually put onto 
the address bus to retrieve the data must be calculated by the 6502 
first, based on the information you give it. The operand, as you can 
see, has two parts: the absolute (or zero page) address of the 
beginning of the table (this may be a label, and in fact you’ll be 
better off if you use labels every chance you get), and the name of 
the index register you're using. The value stored in that index 
register (X or Y) is the number of bytes into the table that we have to 
go to get to the piece of data we want. X (or Y) could be an input 
value; it can also be used as a means of looping (more on that later). 
The value of X (or Y) is a 1-byte number. The high byte is assumed 
to be $00. This means that we can address a table that is at most 
256 bytes long. The first element in the table would be accessed 
when the value in X (or Y) is $00 (the starting address of the table 
plus zero gives us the first element); when the value in X (or Y) is 
255 ($FF), the starting address plus 255 (or $FF) gives us the 
address of the last element of the table. 
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This brings up the idea of effective address (this is not a 
different addressing mode). The effective address is the address 
actually accessed by the computer, and is not necessarily the 
address we used as an operand (as in this case, where the 
computer had to do some calculating of its own based on the 
information we gave it). We've encountered this before when we 
used relative addressing with branching instructions. We used 
either the address or a label for the address of where we wanted to 
branch to, and the computer figured out the relative address (how 
many bytes forward or backward). If we had used machine 
language, we would have had to figure out the number of bytes 
ourselves. The effective addresses for the addressing modes 
we've studied so far are listed below: 


ABSOLUTE: 
ZERO PAGE: 
IMPLIED: 
IMMEDIATE: 


RELATIVE: 


INDEXED; 


Same as the operand. 

Same as the operand, with a high byte of 00. 

No operand or address. 

The byte after the op code is the effective 
address. Suppose that the instruction we're 
concerned with is LDA, and we wish to load A 
with the immediate value $2A. In machine 
language this would be A9 2A. If the op 
code, $A9, were stored at $800, then the 
operand, $2A, would be stored in the next 
byte, $801. The effective address of this 
instruction, even though the operand is a 
value rather than an address, is $801 , since 
that is where the value is stored which will be 
loaded into the accumulator. 

Must be computed by the CPU. The CPU adds 
the one byte displacement value to the PC to 
find the address to branch to. 

Must be computed by the CPU. The CPU takes 
whatever's in the X (or Y, if that's what you 
specified) register, and adds it to the operand 
to find the effective address. If X (or Y) 
contains $00, the indexed address becomes 
the same as the absolute address in the 
operand. As noted before, we can index a 
table 256 bytes long, and the maximum value for 
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4 


X (or Y) is 255 ($FF). We can index in a 
forward direction only. There is no moving 
backward. 

It's useful to know that not all instructions which use indexed 
addressing can use either the X or the Y register. (As we go along, 
we'll list these specifically). One restriction which usually holds true 
(though not always) is that the Y register may not usually be used for 
indexed zero page addressing. A good rule of thumb (yes, there 
are exceptions) is to use either X or Y for indexed absolute 
addressing, and to use only X for indexed zero page addressing. If 
you're using Y as your index, the assembler will check to see if it’s 
OK to have zero page indexed by Y in the context of what you're 
doing. If so, it will use the shorter (zero page) means of addressing, 
and if not, it will use absolute indexed addressing with a zero high 
byte. 

A second thing to be aware of is the possibility of a sort of 
"wraparound" that could happen to you with zero page indexing as 
a result of the fixed precision of the 1-byte zero page address. An 
example is the best way to see what happens. We'll assume at the 
start that the X register contains the value $40, and that the table 
we're addressing begins at $80: 

X:$40 LDA $80, X means LDA$80+$40, orLDA$00C0 
If the value of X is then changed to $C0, and we load A again: 

X:$C0 LDA $80, X means LDA $80+$C0, or LDA $0040 

(note the wraparound of values that 
has taken place) 

Because of the fixed precision of Zero Page addresses, this sort of 
thing could happen, perhaps in a loop where the value of X 
changes by $40 each time the loop is executed. No error message 
is generated (it isn’t really an error, at all), but you won't be able to 
get beyond page zero. 
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Now that you have an idea of how the index registers may be 
used, it's time to look at several new instructions which allow us to 
manipulate these registers. Obviously, we've got to have some way 
to get values into them. We may need some way to store the values 
they contain, and if we're trying to set up a loop, we have to have 
some way of incrementing and/or decrementing the values stored 
in these registers. 

LDX and LDY ( LoaD X and LoaD Y ) 

As you may have guessed, these two instructions are Load X 
and LoaD Y. They can use absolute, immediate, and zero page 
addressing. These instructions work just like LDA, except that they 
affect the X and Y registers. Indexed addressing with the same 
index is not allowed: 

LDX LABEL, X ERROR! 

Attempting to use a value from X to index a table and load a value 
from that table into X at the same time is too much for the CPU to 
handle. Be kind to your computer and don’t even try (ORCA won't 
let you get away with it anyhow). Indexing with the other index 
register is fine : 

LDX LABEL, Y 

STX and STY ( STore X and STore Y ) 

STore X and Store Y allow you to store the value currently in 
the X or Y register to the memory location of your choice. Absolute 
and zero page addressing is allowed, as well as indexed addressing 

with the opposite index register. 

• • 

When we first introduced the 6502 to you, we said that 
arithmetic operations could take place only in the A register. For this 
reason, there are no ADX, ADY, SBX, or SBY instructions! 
However, incrementing and decrementing are not really considered 
arithmetic operations, and since incrementing and decrementing 
are so fundamental to the structure of a loop, there are instructions 
to allow this for both the X and Y registers. 
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INX and INY ( INcrement X and INcrement Y ) 

These instructions operate directly on the CPU, not on 
memory, so they do not require an operand. This is another way of 
saying that they use implied addressing. They add one to an index 
register. 


DEX and DEY ( DEcrement X and DEcrement Y ) 

These instructions also operate directly on the CPU, rather 
than on memory, and do not not require an operand (they also use 
implied addressing). They subtract one from the index register. 

We're now ready to write a segment of code which will allow us 
to "move” a given number of bytes of information from one location 
to another in memory. The word "move" is a little misleading - we 
don't actually remove the information from one location and place it 
in another, we copy it into the new location without destroying it. 
This "move" could be accomplished with a series of loads and 
stores, using the A, X, or Y register, but unless we want to move 
only 1 or 2 bytes, this is very inefficient, To move 10 bytes by the 
load'n'store method would require 20 lines of code. To simplify 
things, then, we'll use a loop to do this repetitive task. 


BPL ( Branch on PLus ) 

Before we can write this loop, we need a new way of 
branching. This instruction, Branch on PLus, checks a bit of the 
Processor Status register we haven't yet discussed - the minus, or 
negative flag. This flag is the high bit of the P register. Any 
operation that affects a register affects the N bit. If the high bit is 1 , a 
number is negative; if it is 0, the number is positive. Remember 
what we said about the "sign bit"? This is similar. (Since the high bit 
of zero is 0, that make zero a positive number as far as the minus 
flag is concerned. This may offend mathematicians, but don't let it 
bother you). If the N bit is 0 when this instruction is encountered, 
the branch will be executed. 


* 
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LOOPING 


Most looping in assembly language is done backwards, and 
since we want to use BPL in our loop, we'll set things up in such a 
way that we continue to loop and move bytes while the N bit reflects 
a positive number in the register we're using for a loop counter. The 
five steps in our loop will be accomplished by counting backwards: 
4, 3, 2, 1,0 ( not 5, 4 ,3, 2,1 since the next step, 0, would still evaluate 
to plus, and we'd move an extra byte we hadn't counted on). 

Read through the program segment below carefully. It moves 
5 bytes of information from its original storage location (5 
consecutive bytes beginning at NUM1) to a new location (5 
consecutive bytes beginning at NUM2). The maximum number of 
bvtes that could be moved in this way (not the maximum distance 
they could be moved) is 129. To see why, start with an index of 
129, represented by $81, which is "negative" when we consider 
1 -byte values. (Remember the sign bit?) After one pass through the 
loop, we would have decremented X to 128, and still have a 
negative number. Because we're using BPL to construct the loop, 
this negative value prevents the branch from occurring. On the 
other hand, if we start with a value of 128 for X, even though this is 
"negative” it causes no problem, because we pass through the 
body of the loop once before the branching condition is ever 
evaluated, thus decrementing X to a "positive" value (127) before 
we get to the BPL. The largest permissible starting value for X is 
therefore 128, and since we move the zeroth byte, starting with an 
X of 1 28 lets us move 1 29 bytes. 


MOVE 

START 



NUM1 

EQU 

$2000 

DEFINE LABELS 

NUM2 

EQU 

$2005 

• 


LDX 

#4 

STARTING POINT FOR LOOP 

1 

* 



COUNTER 

LB1 

LDA 

NUM1.X 

BODY OF LOOP 

■ • • * 


STA 

NUM2.X 

• 


DEX 


DECREMENT LOOP COUNTER 


BPL 

LB1 

BRANCH IF NOT DONE 


BRK 


• 

• 9 


END 


ft m 
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The best way to explain what's going on here is to trace this 
program. The chart below shows values for the X and A registers 
after each pass through the loop, and also the values in memory as 
they are moved. Remember that we are looping backwards from 4 
to 0 for a total of five steps. We will assume the bytes we are moving 
contain the values $01, $02, $03, $04, and $05 (although 
initializing those bytes to these values was not a part of this program 
segment). 

• • 

% % 

X NUM1.X A NUM2.X values at $2000 

4 


$04 $2004 $05 $2009 01 02 03 04 05 

the value at $2004 is moved to $2009 00 00 00 00 05 

■ 

$03 $2003 $04 $2008 01 02 03 04 05 

the value at $2003 is moved to $2008 00 00 00 04 05 

$02 $2002 $03 $2007 01 02 03 04 05 

the value at $2002 is moved to $2007 00 00 03 04 05 

$01 $2001 $02 $2006 01 02 03 04 05 

the value at $2001 is moved to $2006 00 02 03 04 05 

$00 $2000 $01 $2005 01 02 03 04 05 

the value at $2000 is moved to $2005 01 02 03 04 05 

$FF this is negative so the branch is not taken 


PROBLEMS 

6.1. Write a program that moves five bytes from $2004 to $2011. 
Be sure to use EQU directives to specify the data areas. Also, use 
an EQU to specify the number of bytes to move. Listing 6.1 in 
appendix A shows our solution. 
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6.2. We introduced the idea of the effective address during this 
session. It is simply the address of the byte that the instruction 
works on. Calculate the effective address for each of the following 
instructions. Be sure to check your answers! There are some tricky 


problems. 



D 

LDA 

$2000,X 

where X contains $1 D 

2) 

STA 

$A7,X 

where X contains $43 


STA 

$A7,X 

where X contains $6F 


STA 

$00A7,X 

where X contains $6F 

3) 

ADC 

$DFAC,Y 

where Y contains $AB 

4) 

SBC 

$01 FB,X 

where X contains $F8 

5) 

LDX 

$14,Y 

where Y contains $B2 


LDX 

SKY 

where Y contains $FD 


LDX 

$0014,Y 

where Y contains $FD 

6) 

STY 

$08, X 

where X contains $0F 


STY 

$08, X 

where X contains $F9 

7) 

DEC 

$A003,X 

where X contains $D4 

8) 

LDY 

$100F,X 

where X contains $1 5 

9) 

INC 

$C0,X 

where X contains $2E 


INC 

$C0,X 

where X contains $E7 


INC 

$00C0,X 

where X contains $E7 

10) 

STX 

$DA,Y 

where Y contains $1 3 


STX 

$DA,Y 

where Y contains $9E 

11) 

LDA 

$E1,X 

where X contains $1E 


LDA 

$E1,X 

where X contains $ED 


LDA 

$00E1,X 

where X contains $ED 

12) 

STA 

$3FF2,Y 

where Y contains $AF 

13) 

ADC 

• 

$09, X 

where X contains $8E 


ADC 

$09, X 

where X contains $FB 


ADC 

$0009, X 

where X contains $FB 

14) 

SBC 

$CB,X 

where X contains $19 


SBC 

$CB,X 

where X contains $D7 


SBC 

$00CB,X 

where X contains $D7 

15) 

LDX 

$4CD0,Y 

where Y contains $3F 

16) 

DEC 

$7F,X 

where X contains $5C 


DEC 

$7F,X 

where X contains $98 


DEC 

$007F,X 

where X contains $98 
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17) 

LDY 

$B1,X 


LDY 

$B1,X 


LDY 

$00B1 ,X 

18) 

INC 

$0A1 4,X 

19) 

LDA 

$E0C8,Y 

20) 

STA 

$0AAA,X 

21) 

ADC 

$070C,X 

22) 

SBC 

$320D,Y 


where X contains $34 
where X contains $D0 
where X contains $D0 
where X contains $E9 
where Y contains $F4 
where X contains $9D 
where X contains $1A 
where Y contains $53 
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Session Six Summary 

Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program) 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC 

m 

add with carry 

BCC 

m 

branch on carry clear 

BCS 

at 

branch on carry set 

BNE 


branch not equal 

BPL 

m 

branch on plus 

BRK 

m 

break 

CLC 


clear carry 

DEC 

- 

decrement 

DEX 

- 

decrement X 

DEY 

- 

decrement Y 

INC 

- 

increment 

INX 

- 

increment X 

INY 

- 

increment Y 

LDA 

- 

load A 

LDX 

- 

load X 

LDY 

- 

load Y 

SBC 

- 

subtract with carry 

SEC 

- 

set carry 

STA 

- 

store A 

STX 

- 

store X 

STY 

- 

store Y 


Addressing Modes 

absolute 

immediate 

implied 

relative addressing 

zero page 
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Assembler Directives 


comments 

END 

EQU 

KEEP 

PRINTER 

START 

Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 


SESSION SEVEN 

Addressing Modes II 

(RAMville, U.S.Apple) 

Indirect Indexed Addressing 

(Fourth Class Mail) 


In the last session, we wrote code to move at most 129 bytes 
of information from one area of memory to another. We were limited 
to 129 bytes because we were using BPL as our branching 
decision, and if the X register had held a number greater than 128, 
the high bit would have been 1 , even after the X register had been 
decremented once. Thus the minus flag would have been set the 
first time through the loop. When the CPU encountered the BPL 
instruction, it would not have been executed, and all but one of the 
bytes we wished to move would have gone nowhere. 

Before getting to our next addressing mode, we're going to 
look at two modifications of that program segment, which will allow 
us to move a larger block of memory. It’s important to understand 
that there is more than one way to skin a ... er, write a program. 
Under varying circumstances, you'll need to find alternate means of 
accomplishing the same task. While you're learning this business of 
assembly language programming, we'll try to show you a variety of 
ways to give your computer instructions for a given task, and explain 
the ways that the results of these methods differ. 

We don't need any new instructions for these two alternate 
move loops. We will, however, use a different branching instruction 
(BNE), to avoid the 129 byte limitation we encountered in the 
previous segment. 


165 



I 


The first example will allow you to move up to 255 bytes. Note 
that the value in the X register must be from 1 to 255 for the loop to 
be executed. Also, pay particular attention to the addressing! 

LDX #5 

LB1 LDA NUM1-1.X 

STA NUM2-1 ,X 

DEX 

BNE LB1 

% • * • 

Remember that NUM1 is the address of the first byte we want to 
move, and that X is the number of bytes past the first byte which 
we're addressing currently. In order to move the first byte, which is 
NUM1 +0, we have to take into account the fact that the lowest value 
X will take on is 1 . Since we have to add X to NUM1 , we first subtract 
1 from NUM1. Then, when we add the 1 which is stored in X, we're 
back to where we started from. (Think about it!). Although we 
started the loop at 5 in this example, it could be begun at any value 
up to 255 (which is the largest one-byte value we can have - and the 
X register can hold only one byte of information). It would be a good 
idea for you to pause to "play computer" with this example, writing 
out the register values as the loop executes as we did in the 
example in the last session. 

The second example also uses BNE, but it will allow us to 
move exactly 256 bytes. (Remember that we are talking about how 
how many bytes can be moved, not how far we can move those 
bytes. We can move them as far as we like.) Each pass through the 
loop results in one byte being moved. Note that this loop begins 
with 0 in the X register. Each pass through the loop moves a byte 
and then decrements X, which then takes on the values $FF, $FE, 
$FD ... $03, $02, $01 , and finally $00, to terminate the loop. 

LDX #0 

LB1 LDA NUM1.X 

STA NUM2.X 

DEX 

BNE LB1 
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Note that it is no longer necessary to subtract 1 from the address of 
NUM1 before adding the index value in X. We begin at 0 and work 
our way "backwards" until we reach zero again, as in the previous 
example. 

% 

6 m 

Now we're ready to look at a new addressing mode, i ndirect 
indexed addressing . This addressing mode uses the Y register 
only (never the X register) to hold the index value (so far, it's pretty 

much the same as plain old indexed addressing). There is a 

% • _ * * 

difference in the operand, though, that's very important. The first 
part of the operand is in parentheses, although it still may be an 
address, a label, or an expression. The parentheses are the key 
that tells the assembler that you're using indirect indexed 
addressing, so be very careful never to start an operand with a left 
parenthesis unless you want to use an indirect addressing mode. 
The address in the parentheses must be a zero page address . If 
there is a label in the parentheses, it must reference a zero page 
address; an expression in the parentheses must evaluate to a zero 
page address. The right parenthesis is followed by a comma and 
the letter Y (since we must use the Y register). 

LDA (ADDR),Y 

STA (NUM5+1),Y 

ADC ($A5) , Y 

SBC ($A0+ADDR-1),Y 

The first example above uses a label as the first part of the 
operand. This label must reference a zero page address. The 
second example uses an expression involving a label (this must 
evaluate to a zero page address as well). The third example uses an 
explicitly stated zero page address, and the last involves an 
expression which includes an explicitly stated zero page address 
and a label. Of course, this more complicated expression must also 
evaluate to a zero page address. 

• • • 

OK, so we know how to write it. What does it do? Indirect 
indexed addressing has an extra twist to it that you may not see a 
use for immediately (so we'll do an extensive example later to clarify 
things - at least to the point where everything's as clear as thin mud). 
When the 6502 uses indirect indexed addressing, it goes to the 
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zero page address referenced by the first part of the operand. 
There it reads two consecutive bytes, which are the low and high 
bytes of an address. It then adds the value in the Y register to this 

address. The result is the effective address of this indirect indexed 
instruction. 

So far it's only as clear as thick mud, right? Well, definitions are 
often like that; let's look at some examples. In each case, we will 
determine the effective address, which we defined last session as 
the address that the operation is performed on. 

LDA #$8A17 

STA $A5 

LDA #>$8A1 7 

STA $A6 

LDY #$3F 

LDA ($A5) , Y 

The first four instructions load the zero page locations $00A5 
and $00A6 with $1 7 and $8A, respectively. The LDY sets our Y 
register to a specific value. All of these instructions merely initialize 
locations and registers whose values we must know to understand 
what the last instruction does. When the CPU encounters the LDA, 
it starts by loading the one byte operand, $A5. (In machine 
language, the last line is $B1 $A5.) This tells it where to go in zero 
page to find the base address for the index operation. The CPU 
loads the address $8A17 from locations $A5 and $A6, and then 
adds the value of the Y register to get the effective address: 

$8A17 
+ $003 F 


$8A56 

The contents of $8A56 are then copied into the accumulator. 

* 

. There, wasn't that easy? Now that you have a feel for how 
indirect indexed addressing works, why should we go to the trouble 
of using this mode? It looks like a lot of bother, because we will 
have to store the address in zero page, and then use the zero page 
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address of the address in the operand. The mud is getting thicker 
by the minute. There is a good reason for using indirect indexed 
addressing, though. This is a 2-byte instruction: one byte for the 
op code, and one byte for the zero page address. The machine 
language op code tells the computer to use the Y register, so that 
information doesn’t have to be stored as part of the program, and 
the assembler does the work of deciding which machine language 
op code we want, based on the syntax used in the operand field. 
(That's why we had to be careful with the parentheses). We can 
save space this way, and in a large program, space can be even 
more precious than time. A more important use is to give us a way to 
specify an address as an input parameter to a subroutine, instead of 
using subroutines that can only work on fixed memory locations. In 
the next section, we will start looking at examples that make use of 
this application. 

You're probably wondering what zero page addresses you 
can use in your own programs, given that many zero page 
addresses have special uses and that we can really mess things up 
by using a location which has such a special function. The locations 
$00 to $1 E are fairly safe under all systems, though there are some 
ORCA/EZ subroutines which occasionally use this area. If you’re 
using ORCA subroutines, check to see what locations may be 
already spoken for... but for our purposes right now, we can use 
$00 to $1 E safely. 


PROBLEMS 

Although this problem set is long, it is very important! Please take 

the time to work all the problems, and then check your results. 

• • 

• m 

7.1. Determine the effective address for each of the following. 
These problems give you a look at all the instructions we've studied 
so far that use indirect indexed addressing (ADC, LDA, SBC, and 
ST A). Values stored in the Y register are listed in the comment field. 
They are not part of the source code line. You should assume the 
following: 
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ADDR 

EQU 

$7D 

NUM1 

* 

EQU 

• 

$9F 

NUM2 

EQU 

$CB 

NUM3 

EQU 

$80 


You will also need to know the values stored in several zero page 
locations: 


$70: $4A 

$90: $31 

$B0: $A3 

$71 : $7B 

$91 : $FE 

$B1 : $DA 

$72: $45 

• 

$92: $2F 

$B2: $02 

$73: $09 

$93: $FD 

$B3: $91 

$74: $4F 

$94: $C3 

$B4: $70 

$75: $02 

$95 : $1 3 

$B5: $E3 

$76: $D9 

$96: $0D 

$B6: $B1 

$77: $29 

$97: $76 

$B7: $D8 

$78: $01 

$98: $31 

$B8: $42 

$79: $2B 

$99: $96 

$B9: $A0 

$7A: $50 

$9A: $0A 

$BA: $09 

$7B: $81 

$9B: $CD 

$BB: $BE 

$7C: $00 

$9C:$44 

$BC: $AA 

$7D: $D3 

$9D: $27 

$BD: $6D 

$7E: $99 

$9E: $27 

$BE: $F4 

$7F: $1 A 

$9F: $EE 

$BF: $9D 

$80: $4D 

$A0: $B4 

$C0: $DD 

$81: $89 

$A1 : $37 

$C1: $13 

$82 : $00 

$A2: $F5 

$C2: $01 

$83: $80 

$A3: $07 

$C3: $3D 

$84:$1F 

$A4: $C0 

$C4: $87 

$85: $DA 

$A5: $CB 

$C5: $11 

$86: $23 

$A6: $09 

$C6: $A3 

$87: $D1 

$A7: $94 

$C7: $ED 

$88: $92 

$A8: $DB 

$C8: $3C 

$89: $AC 

$A9: $DC 

$C9: $00 

$8A:$23 

s • 

$AA: $1 0 

$CA: $46 

$8B: $7B 

$AB: $DD 

$CB: $54 

$8C:$37 

$AC: $52 

$CC: $37 

$8D: $36 

$AD:$50 

$CD: $23 

$8E: $FF 

$AE: $00 

$CE: $9 A 

$8F:$01 

$AF: $03 

$CF: $FD 
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Now for the problems! 


1) 

LDA 

($74) ,Y 

where Y contains $37 

2) 

LDA 

(NUM3),Y 

where Y contains $9B 

3) 

LDA 

($FF-ADDR),Y 

where Y contains $1 4 

4) 

LDA 

(NUM2+3),Y 

where Y contains $D0 

5) 

LDA 

(ADDR-$A),Y 

where Y contains $03 

6) 

STA 

(SCO) ,Y 

where Y contains $C8 

7) 

STA 

(NUM1),Y 

where Y contains $00 

* 

8) 

STA 

(NUM2+$30-ADDR),Y 

where Y contains $23 

9) 

STA 

(ADDR-5),Y 

where Y contains $F1 

10) 

STA 

($ED-ADDR),Y 

where Y contains $4A 

11) 

ADC 

($B4),Y 

where Y contains $FD 

12) 

ADC 

(NUM2),Y 

where Y contains $9F 

13) 

ADC 

(NUM1+4),Y 

where Y contains $1 0 

14) 

ADC 

(NUM3-$50+ADDR),Y 

where Y contains $A1 

15) 

ADC 

(ADDR+9),Y 

where Y contains $45 

16) 

SBC 

($B5) , Y 

where Y contains $9C 

17) 

SBC 

(NUM1-1),Y 

where Y contains $28 

18) 

SBC 

(ADDR).Y 

where Y contains $39 

19) 

SBC 

($38+ADDR-4),Y 

where Y contains $41 

20) 

SBC 

($E1 -NUM2+ADDR),Y 

where Y contains $7 A 




The Long Move 

* * 

(By Apple Moving and Storage) 

■ , * 

* 

We're finally ready to write a program segment for a long 

move - that is, a move which involves a long block of memory, not a 

long distance. You'll recall that we can already move a block of bytes 

to any place we'd like. The limitation we've experienced so far 

comes from using the X register both for indexing into the block of 

memory that we're moving and as a loop counter. Since the X 

register can hold only one byte of information, the maximum move 

we were able to accomplish was 256 bytes. Now we'll use indirect 

indexed addressing to set up a loop that moves an arbitrarily large 
number of bytes. 

A long move such as this can be a very useful routine to have 
available. In fact, this could be one of the first routines in your very 
own subroutine library. Consequently, it would be a good idea to 
plan it carefully and to make it as flexible as possible. That means, in 
part, that we will use labels every chance we get. The fewer lines we 

have to change in the future to make this routine applicable to some 
other program, the better. 

Because the use of a two-byte number of bytes to be moved 
involves 2 byte increments and decrements (the code for these can 
be a little confusing while we're trying to see the big picture for this 
program segment), the first time we write the routine we'll only 
move a few bytes (let's say, 5), so that the only thing we have to 
worry about is using indirect indexed addressing correctly. The 
second time, we'll write the complete routine, including the 2-byte 

increments and decrements, and use it to move $1000 bytes. 

• • 

• • 

Let's first consider the equates which will be used at the 
beginning of this program segment. This is the place where much 
of our flexibility comes from, so we want to plan this section well. 
We'll need some zero page addresses to use with indirect indexed 
addressing; we'll use those described as "safe" before problem 7.1, 
from $00 to $1 E. We'll also need a label for the beginning address 
of the bytes we wish to move, and one for the beginning address of 
the location to which we're moving them. The last label we need is 

for the number of bytes to be moved: 
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ADDR1 

EQU 

$0 

ZERO PAGE ADDRESSES OF 

I 

ft 

ADDR2 

EQU 

$2 

VALUES WHICH ARE THE LOW 
& HIGH BYTES OF THE 

1 

ft 

I 

♦ 

1 

ft 

LOOP 

EQU 

$4 

ADDRESSES OF THE ORIGINAL 
AND NEW LOCATIONS OF THE 
BYTES TO BE MOVED. 

ADDRESS OF THE LOOP 

i 

• 

! 

SOURCE 

EQU 

$2000 

COUNTER (NOT USED IN 

SHORT ROUTINE) 

STARTING ADDRESS OF BYTES 

i 

• 

DEST 

EQU 

$3000 

TO BE MOVED 

STARTING ADDRESS TO MOVE 

! 

BYTES 

EQU 

$5 

BYTES TO 

NUMBER OF BYTES TO BE MOVED 


As you can see, by changing only SOURCE, DEST, and 
BYTES, we can use the program to move the number of bytes we 
choose from a location of our choice to another location of our 
choice. 

Our next task is to load the values in SOURCE and DEST into 
their zero page locations, using immediate addressing (pay 
particular attention to the notation used in the four LDA 
instructions): 

LDA #<SOURCE LOW BYTE 

STA ADDR1 

LDA #>SOURCE HIGH BYTE 

STA ADDR1+1 

LDA #<DEST LOW BYTE 

STA ADDR2 

LDA #>DEST HIGH BYTE 

STA ADDR2+1 

• • a 

Finally, we must set up the loop that actually copies the bytes 
from their original location into the new location (we don’t actually 
move the bytes; rather, the information is copied into the new 
region of memory, but has not been erased from the original 
location): 
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ADDR1 

EQU 

$0 

ZERO PAGE ADDRESSES OF 

i 

• 

ADDR2 

EQU 

$2 

VALUES WHICH ARE THE LOW 
& HIGH BYTES OF THE 

I 

m 

ft 

i 

• 

LOOP 

! 

l 

ft 

SOURCE 

l 

ft 

DEST 

I 

• 

BYTES 

• 

EQU 

$4 

ADDRESSES OF THE ORIGINAL 
AND NEW LOCATIONS OF THE 
BYTES TO BE MOVED. 
ADDRESS OF THE LOOP 

• 

EQU 

$2000 

COUNTER (NOT USED IN 

SHORT ROUTINE) 

STARTING ADDRESS OF BYTES 

EQU 

$3000 

TO BE MOVED 

STARTING ADDRESS TO MOVE 

EQU 

$5 

BYTES TO 

NUMBER OF BYTES TO BE MOVED 


As you can see, by changing only SOURCE, DEST, and 

BYTES, we can use the program to move the number of bytes we 

choose from a location of our choice to another location of our 
choice. 

Our next task is to load the values in SOURCE and DEST into 
their zero page locations, using immediate addressing (pay 
particular attention to the notation used in the four LDA 

instructions): 


LDA 

STA 

#<SOURCE 

ADDR1 

LOW BYTE 

LDA 

STA 

#>SOURCE 

ADDR1+1 

HIGH BYTE 

LDA 

STA 

#<DEST 

ADDR2 

LOW BYTE 

LDA 

STA 

#>DEST 

ADDR2+1 

HIGH BYTE 


Finally, we must set up the loop that actually copies the bytes 

from their original location into the new location (we don’t actually 

move the bytes; rather, the information is copied into the new 

region of memory, but has not been erased from the original 
location) : 
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LDY 

LB1 LDA 

STA 

DEY 

BPL 


#BYTES-1 

(ADDR1),Y 

(ADDR2),Y 

LB1 


There are several important things to notice about this loop. 
First, we will move all the bytes, because we are using BPL as the 
branching instruction for the loop. Because 0 is positive (as far as 
the CPU is concerned), the loop will be executed when the Y 
register contains 0, and that takes care of the byte you may have 
thought we were losing. 


Second, the computer will calculate the 2-byte effective 
address from the information in the operands of the LDA and STA 
instructions. We are now moving byte by byte from one calculated 
2-byte address to another calculated 2-byte address. 


We have not yet set up the loop for a long move. We are still 
using the Y register as the loop counter, and it can hold only one 
byte of information, so we are still limited to moving 129 bytes with 
the routine as it stands now. (All we've really done so far is to rewrite 
our earlier short move, from Session Six, so that it utilizes indirect 
indexed addressing.) To be sure that you understand the program, 
get out your tablet and #2 pencil (or writing medium and instrument 
of your choice) and trace through the program segment we've 
written so far. Compare your trace to the one for the loop printed in 
Session Six (they should be similar but not identical). The complete 
program segment is shown below for your convenience, so you can 
see what it looks like as a unit (rather than as the separate sections 
decribed above). 


SLMOV 

START 


ADDR1 

EQU 

$0 

ZERO PAGE ADDRESSES FOR 

• • • 

ADDR2 

EQU 

$2 

INDIRECT INDEXED ADDRESSING 

SOURCE 

EQU 

$2000 

ACTUAL ADDRS TO BE USED 

DEST 

EQU 

$3000 

• s 

BYTES 

* 

*• 

EQU 

% 

$5 

• • 

• * 4 

• • * 


175 



LDA #<SOURCE LOAD ACT. ADDR.TO BE USED 

STA ADDR1 

LDA #>SOURCE 

STA AD DR 1+1 

LDA #<DEST 

STA ADDR2 

LDA #>DEST 

STA ADDR2+1 

, * 

LDY #BYTES-1 MOVE LOOP 
LB1 LDA (ADDR1),Y 

STA (ADDR2) ,Y 
DEY 

BPL LB1 

BRK 

END 

Now we're ready for the big event. In our expanded routine, 
we will need one more EQU - a 2-byte loop counter. The address 
loading will be the same, and we will also have to bad the number of 
bytes to be moved into the loop counter. The loop structure may 
appear overly complex, but that is because of the 2-byte increments 
and decrements necessary when we have 2-byte addresses and a 
2-byte loop counter. You have already written 2-byte increments 
and decrements; refer to your notes from that session if your recall 
is less than instantaneous and total. The finished program is shown 
in listing 7.2. 


PROBLEMS 

7.2. Now of course, you need to type the long move program in, 
save the source code (unless you like retyping things), assemble it, 
and run it. The BRK at the end will put you into the Apple Monitor 
so that you can check to see if you've really copied the contents of 
the bytes you "moved" into the new location. See Listing 7.2 in 
Appendix A for our long move program. 
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Session Seven Summary 

Apple Monitor Commands 

* 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program) 
read memory 

set (enter values into) memory 


Assembly Language Instructions 

ADC - add with carry 

BCC - branch on carry clear 

BCS - branch on carry set 

BNE - branch not equal 

BRK - break 

CLC - clear carry 

DEC - decrement 

DEX - decrement X 

DEY - decrement Y 

INC - increment 

INX - increment X 

INY - increment Y 

LDA - load A 

LDX - load X 

LDY - load Y 

SBC - subtract with carry 
SEC - set carry 
STA - store A 
STX - store X 
STY - store Y 
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Addressing Modes 

s 

absolute 

* • 

immediate 

implied 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 
comments 

END 

EQU 

KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
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SESSION EIGHT 

Subroutines 

(Sing: We Ail Live in a Yellow Subroutine...) 


JSR and RTS 

(GOSUB and RETURN, revisited) 


We'll begin this session with a functional description of JSR 
and RTS (that is, how we use these instructions), and then take a 
look at how they actually work (what goes on in the microprocessor 
when they are executed). 

• . 

JSR ( Jump to SubRoutine ) 

In BASIC, the instruction GOSUB provides you with the ability 
to transfer control from the current position in the program to any 
other line. In assembly language, we use JSR (Jump to 
SubRoutine)for a similar purpose. JSR uses absolute addressing, 
so it is a three-byte instruction - one byte for the machine language 
op code, $20, and two bytes for the absolute address to which you 
wish to jump. To make this easy, we usually use labels on any line to 
which we will need to jump. (By now you should be able to recite 
the Sermon on Flexible Programming by heart - use labels wherever 
possible to simplify coding and modifying the program and to make 
it more readable). Like GOSUB, JSR has a fixed target (a specific 
line to which control is to be transferred), and cannot pass 
parameters. If you don't know what passed parameters are, don't 
worry about it now. (If you don't know what they are, you won’t be 

9 • t 

trying to use them, will you?) As you may have guessed, this is one 
of those things that we'll tell you about later, when you're older. 
Much older. 
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RTS ( ReTurn from Subroutine ) 


A subroutine in BASIC is invoked by a GOSUB, and 
terminated by a RETURN statement. The effect of the RETURN is 
to transfer control of the program back to the next instruction after 
the most recent call (GOSUB). Consider the following BASIC 
program segment: 

100 FOR I = 1 TO 25 

110 PRINT "l=";l 

120 GOSUB 300 
1 30 NEXT I 


« 

300 PRINT T A 2=“;I A 2 
31 0 RETURN 

In the segment, control is transferred to line 300 from line 120. 
The RETURN in line 310 transfers control back to line 130, NEXT I. 


The assembly language instruction, RTS (ReTurn from 
Subroutine) does the same thing as the BASIC command, 
RETURN. RTS uses implied addressing, so there is no operand. 
RTS is, therefore, a one-byte instruction. Its machine language op 
code is $60. When this instruction is executed, control is returned 
to the instruction immediately following the most recent call. JSR's 
may be nested, just as GOSUB's may be nested: an RTS, like a 
RETURN, "finishes" the most recent, or most deeply embedded, 
subroutine. Look at the example below: — 

100 PRINT "LEVEL ONE" 

110 GOSUB 200 

120 PRINT "ONE-DONE" Sample Output: 




200 PRINT "LEVEL TWO" 

2 1 0 GOSUB 300 

220 PRINT ’TWO-DONE" 

230 RETURN 
■ 

continued on next page... 
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LEVEL ONE 
LEVEL TWO 
LEVEL THREE 
THREE-DONE 
TWO-DONE 
ONE-DONE 



300 PRINT "LEVEL THREE" 

310 PRINT "THREE-DONE" 

320 RETURN 

• * 

In this example, the RETURN in line 320 transfers control to 
line 220, the instruction after the most recent call (which occurred in 
line 210). The RETURN in line 230 transfers control to line 120, the 
instruction after what is then the most recent call (which occurred in 
line 110). Line 110 is the most recent call because the call in line 
210 has been used up or completed by the RETURN in line 320. 

Now consider these assembly language segments, and 
assume that in each case, the program is stored beginning at $800. 

SEGMENT 2 

LDA #<1000 

JSR $806 

BRK 

STA $2000 

JSR $80 D 

RTS 

LDA #>1000 

JSR $813 

RTS 

STA $2001 

RTS 

The obvious difference is the ease with which the first 
segment can be read. Beyond that, there is no difference except 
that there are no labels for the assembler to deal with in the second 
segment. Note that the final RTS is the first one actually 
encountered during execution. It transfers control to the 

ft 

instruction after the most recent JSR - in this case, another RTS. 
This RTS transfers control to the instruction after the next most 
recent JSR; in this case, though certainly not in all cases, another 
RTS. This (third) RTS transfers control to the instruction after the 
next most recent JSR, and we are back to the BRK in the third line 


SEGMENT 1 



LDA 

#< 1 000 


JSR 

BRK 

LB1 

LB1 

STA 

$2000 


JSR 

RTS 

LB2 

LB2 

LDA 

#>1000 


JSR 

RTS 

LB3 

LB3 

STA 

RTS 

$2001 



ORCA/EZ 1.0 


0001 

0800 



PRINTER ON 


0002 

0800 

' 


KEEP PROGS. A. OB J, VI 00 


0003 

0800 


**************************************** 

0004 

0800 


* 

- 

- 

* 

0005 

0800 


* 

LISTING 8. 

■ A 

* 

0006 

0800 


• 

* 


- 

* 

0007 

0800 

- 

* 

SLMOV - LONG MOVE 

* 

0008 

0800 


* 

THIS SUBROUTINE MOVES AN 

* 

000? 

0800 


* 

ARBITRARILY LARGE NUMBER 

* 

0010 

0800 


* 

OF BYTES 

* 

0011 

0800 


* 



* 

0012 

0800 


* 

INPUTS: 


* 

0013 

0800 


* 

SOURCE - STARTING ADDRESS OF 

* 

0014 

0800 

• 

* 


BYTES TO BE MOVED 

* 

0015 

0800 


* 

DEST - 

- ADDRESS TO MOVE BYTES TO 

* 

0016 

0800 


* 

BYTES 

- NUMBER OF BYTES TO MOVE 

* 

0017 

0800 

A 

* 


• _ 

* 

0018 

0800 

• 

**************************************** 

0019 

0800 


* 


• • 


0020 

0800 


SLMOV START 



0021 

0800 

• 

■ 

9 




0022 

0600 


■ 

9 

ZERO PAGE 

EQUATES FOR INDIRECT 


0023 

0800 


9 

ADDRESSING 


0024 

0800 






0025 

0800 


ADDRl EQU 

$0 SOURCE ADDRESS 


0026 

0800 


ADDR2 EQU 

$2 DESTINATION ADDRESS 

0027 

0800 


LOOP EQU 

$4 LOOP COUNTER 


0028 

0800 


S 




0029 

0800 


m 

f 

ACTUAL ADDRESSES TO BE STORED AND 


0030 

0800 


m 

9 

USED 

% 


0031 

0800 


5 




0032 

0800 


SOURCE EQU 

$2000 SOURCE ADDRESS 


0033 

0800 

• 

DEST EQU 

$9000 DESTINATION ADDRESS 

0034 

0800 

• 

BYTES EQU 

$1000 NUMBER OF BYTES TO 

0035 

0800 


■ 

♦ 


MOVE 


0036 

0800 


9 




0037 

0800 


* 

9 

INITITALIZE THE INDIRECT ADDRESSES AND 

0038 

0800 


m 

9 

LOOP COUNTER 


0039 

0800 


f 




0040 

0800 

A900 


LDA 

#< SOURCE SET SOURCE ADDRESS 

0041 

0802 

8500 


STA 

ADDR 1 


0042 

0804 

A920 


LDA 

# >SOURCE 


0043 

0806 

8501 


STA 

ADDR 1+1 


0044 

0808 

A900 


LDA 

#<DEST SET DEST ADDRESS 


0045 

080A 

8502 


STA 

ADDR2 


0046 

060C 

A990 


LDA 

#>DEST 


0047 

080E 

8503 


STA 

ADDR2+1 


0048 

0810 

A900 


LDA 

#< BYTES SET LOOP COUNTER 


0049 

0812 

8504 


STA 

LOOP 


0050 

0814 

A910 


LDA 

#>BYTES 


0051 

0816 

8505 


STA 

LQOP+1 


0052 

0818 


I 


- * 


0053 

0818 


■ 

9 

MOVE LOOP 

- 


0054 

0818 

• 

5 

- 

- 


0055 

0818 

A000 

- 

LDY 

#0 USE Y AS A POINTER 

0056 

081A 

8100 

LB1 

LDA 

(ADDRl >,Y MOVE ONE BYTE 

w 

0057 

08 1C 

9102 


STA 

(ADDR2) , Y 


0058 

081E 

E600 

- 

INC 

ADDRl INC SOURCE ADDRESS 
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0059 

0820 

D002 


BNE 

LB2 




0060 

0822 

E601 


INC 

ADDR1+1 



* 

0061 

0824 

E602 

LB2 

INC 

ADDR2 

INC 

DEST 

ADDRESS 

0062 

0826 

D002 


BNE 

LB3 




0063 

0828 

E603 

- 

INC. 

ADDR2+1 



( 

0064 

082A 

A504 

LB3 

LDA 

LOOP 

DEC 

LOOP 

COUNTER 

0065 

082C 

D002 


BNE 

LB4 



. 

0066 

082E 

C605 

• 

DEC 

LOOP+1 



• 

0067 

0830 

C604 

LB4 

DEC 

LOOP 


■ . ' 

- 

0068 

0832 

D0E6 


BNE 

LB1 

DO NEXT ! 

BYTE 

0069 

0834 

A505 

- 

LDA 

LOOP* 1 




0070 

0836 

D0E2 


BNE 

LB1 




0071 

0838 

60 


RTS 





0072 

0839 



END 

- 





Local 

Symbol Table 





ADDR1 

0000 ADDR2 

0002 

BYTES 

1000 

DEST 

LB1 

081 A LB2 

0824 

LB3 

082A 

LB4 


LOOP 0004 SOURCE 2000 


9000 

0S30 


Global Symbol Table 
SLMOV 0800 
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With all this understood, we can make the long move program 
at the end of Session Seven into a full-fledged subroutine by 
changing a single line: instead of the BRK immediately preceding 
the END, we'll use RTS. (The purpose of the BRK was to put you 
into the Apple Monitor so that you could check values stored in the 
registers and in memory to be sure that the long move routine had 
worked as you anticipated.) Look at Listing 8. A and note the 
structure of the comment block at the beginning of the routine. All 
inputs to the subroutine (source address, destination address, and 
number of bytes to be moved) are listed as such. Had there been 
any output from the subroutine, it would have been documented in 
a similar way. See Listing 8.A. 

GEQU ( Global EQuate ) 

How, then, do we write a complete assembly language 
program using a subroutine? Before we do this, we need to explain 
one more assembler directive, GEQU (Global EQUate). GEQU is 
used at the beginning of the main program to define "global" labels 
which can be referenced by the main program or by any subroutine 
in the program. The syntax is exactly the same as for EQU, which 
we can now describe as a local EQUate. This means that the label it 
defines can only be referenced by the subroutine (or main program) 
that defined it. 

If you've used global and local identifiers (or labels, or variable 
names) before, and understand the difference, the discussion 
which follows will seem trivial. If you are not entirely sure you 
understand these concepts even though you've used them 
before, or if you haven't used global and local identifiers before 
(even though you think you get the idea), read on carefully! 
Improperly used global and local labels can cause incredible 
disasters in an assembly language program. Properly used, they 
can simplify the programming process, and contribute to the 
flexibility and readability of programs. 
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GLOBAL LABELS 

A "global" label is just what its name implies. One way to 
define a global label is with a GEQU, usually at the beginning of the 
main program. (We define all global labels at the beginning of the 
main program to avoid the possibility - and consequences - of 
accidentally using a label before it is defined. This can result in some 
hard to debug problems, mentioned in an earlier section.) GEQU 
works just like EQU; the only difference is that labels defined with 
GEQU are available to all program segments, while those defined 
with EQU are only available in the segment containing the EQU. By 
global, we mean that it is accessible to the entire program. This label 
may be used in the main program, or by any subroutine within the 
program. It's sort of like a chalkboard at the front of the classroom - 

information written there is accessible to all members of the class. 

, » • 

Generally, global equates are used for all zero page addresses, any 
other addresses used by more than one routine (including the main 
program), and any constants used by more than one routine. (Note 
to users of ORCA/M : it is especially important that you define all .zero 
page labels before use. There are even more disasters that may 
befall you if you are too lazy to bother being careful with global and 
local equates.) 

One special type of global label is a subroutine or main 
program name, which is defined in the START statement, rather 
than in a GEQU or EQU. These are not defined at the beginning of 
the main program, but at the beginning of the individual routine. 
This does not cause the assembler any emotional distress. 


LOCAL LABELS 

• • 

"Local" labels, on the other hand, are defined only within a 
given subroutine (they mav be defined for the main program, but if 
so are inaccessible to the subroutines within that program). Local 
labels are defined at the beginning of the main program or at the 
beginning of the subroutine in which they will be used, using the 
EQU assembler directive. Again, the reason for doing all this at the 
beginning of a program or routine is to avoid the problems 
associated with the accidental use of a label before it is defined. A 

• * • 9 


185 



local label can be compared to the scratch paper kept by each 
student at her/his desk. In contrast to the information on the 
chalkboard, which is available to every student, the information on a 
piece of scratch paper is available only to the student who took 
those notes (we’re assuming, rather naively, we admit, that students 
don't pass notes around). An important point to note is that if a 
subroutine defines a local label with the same name as an 
earlier-defined global label, the local definition takes precedence. 
There is an example of this in the program below. 

• % 

Before we rewrite our Session Seven routine into a 
full-fledged program, using a subroutine, let’s look at a skeleton 
program and examine the correct and incorrect uses of global and 
local labels. Please note that the comments in this program 
skeleton are not normal comments (we don't usually use a comment 
to tell what an instruction does), but are used here for instructional 
purposes. Note also that subroutines are coded separately 
following the END of the main program, rather than being included 
in the main program code. As you might expect, this contributes to 
flexibility and readability. It is your first introduction to modular 
assembly language programming. 


MAINPR 

START 

• 

DEFINES START - GLOBAL LABEL 

NUM1 

GEQU 

$2000 

GLOBAL 

NUM2 

GEQU 

$3000 

GLOBAL 

NUM3 

EQU 

$3200 

LOCAL- USE IN MAIN PROGRAM 

l 

• 



ONLY! 


LDA 

#25 

• 


STA 

NUM1 

LEGAL, STORES 25 IN NUM1 


LDA 

#32 



STA 

ft 

ft 

NUM3 

LEGAL, STORES 32 IN NUM3 


• 

JSR 

SADD 

OK- SADD DEFINED IN SUB- 

1 

• 



ROUTINE START 

- 

LDA 

■ 

• 

NUM4 

ILLEGAL- NUM4 IS LOCAL TO SADD 

- 

• 

ft 

BRK 


• 


END 

. ■ 
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; ADDITION SUBROUTINE 


w 

ft 

SADD 

START 


s 

NUM1 

( 

ft 

1 

• 

1 

ft 

EQU 

• 

$2500 

OK TO USE NUM1 - TAKES 
PRECEDENCE OVER NUM 1 
DEFINED IN MAIN PROG AND IS 
LOCAL TO THIS SUBROUTINE 

NUM4 

EQU 

$3500 

LOCAL - CAN BE REFERENCED BY 
THIS SUBROUTINE ONLY 

• V 

NUM5 

ft 

! 

• 

1 

ft 

1 

ft 

GEQU 

% 

$3700 

LEGAL, BUT COULD BE 

DANGEROUS, SINCE THIS IS 
GLOBAL AND COULD BE USED 
BY ANY PART OF THE PROGRAM I 
AND IS JUST NOW BEING 
DEFINED (IT WOULD BE BETTER I 
TO DEFINE NUM5 IN MAINPR) 


LDA 

NUM1 

LEGAL, BUT LOADS FROM $2500, 
NOT $2000 


ADC 

NUM3 

ILLEGAL, NUM3 IS LOCAL TO 
MAINPR AND CANNOT BE 
ACCESSED BY THE SUBROUTINE 


RTS 

END 

This short example does not attempt to illustrate all of the 
correct and incorrect ways to use global and local labels, but it 
should give you an idea of how things work (or don't work, as the 
case may be) . 

In the main program, an RTS could have been used instead of 
the BRK just before the END. If you use BRK, you will be returned 
to the Apple Monitor, from which you can examine memory and 
registers if you wish. Using RTS instead may seem like nonsense at 
the end of a main program - after all, this is not a subroutine. Where 
would we return to? The answer is that most operating systems, 
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upon encountering an RTS at the end of a program, return you to 
whatever it was that allowed you to run the program. In this case, if 
you had run this program under ORCA, you would be returned to 
the ORCA monitor. If you had run the program from the Apple 
Monitor, you would be returned to the Apple Monitor. 

• * u % 

A problem common to many people learning to use global and 
local labels results from the fact that several subroutines may use 
the same local label name, with each subroutine redefining the label 
for its own use. Not all labels are defined by GEQU or EQU 
directives (think about the labels used to identify instructions to be 
branched to, such as LB1, LB2, LB3, and LB4 in the Session 
Seven long move subroutine). It's unlikely (but not impossible) that 
anyone would list a given label more than once in the block of 
GEQU's and EQU's at the top of a routine, but it's more common to 
find a label, such as LB1 , used more than once within a subroutine: 







ADC 

NUM1 

BNE 

• 

• 

LB2 

• 

SBC 

NUM2 




You should always scan the label field of your program for such 
duplication of labels within a given routine. It's fine to use LB1 in 
every subroutine in the whole program - the label will be local to 
each subroutine, and there will be no conflict. If you do define the 
same label more than once in a given subroutine, you will receive 
the dreaded "Duplicate Label" error message. How embarrassing! 
Avoid humiliation by checking for label duplication before 
assembling your program. 
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The ENTRY Directive 


There are times when it might be useful to be able to skip part 
of a subroutine. For example, we might wish to omit the first few 
lines, which initialize several variables, and use only the part of the 
subroutine that manipulates those variables. In BASIC, we might 
accomplish this by using "GOSUB 350" instead of "GOSUB 320". 
When we branch to a subroutine in assembly language by using 
JSR, we go to the START directive of the subroutine named. If we 
want to START at a different point in the subroutine, do we just put 
in two START directives? No I We use the ENTRY directive to allow 
entry to a different part of a given subroutine. ENTRY also requires 
a label, which probably should be related to the name of the 
subroutine (if the subroutine is SMOVE, then the alternate entry 
point could be SMOVE2): 

SMOVE START 

m 

* 

m 

SMOVE2 ENTRY 

END 

The ENTRY directive is included in ORCA because there is an 
occasional need for its use to increase the efficiency of some 
programs. In general, though, its use is a last resort of lazy 
programmers who don't want to take the time to design their 
programs in a more structured way. 

You may have noticed our convention of using labels 
beginning with ”S" for subroutines, which holds for naming entry 
points. There are several reasons for this. First, it helps identify the 

section of code as a subroutine. Second, if ENTRY points are 

■ • • 

labeled with names related to the subroutines of which they are a 
part (like SMOVE and SMOVE2), the clarity of the program is 
enhanced. Perhaps even more important, though, is a much less 
obvious consideration. There is no type checking in assembly 
language. In BASIC, the computer will issue TYPE MISMATCH 
ERRORS if you try to store integer data in a string, or character data 
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in a real variable. When you use STA, followed by a label, in an 
assembly language program, the assembler does not check to see 
if the memory location at which you say you want to store 
information is already holding part of the program, or if it is empty 
space. If you code the line "STA MOVE", and MOVE is the name of 
one of your subroutines, you could be in big trouble. You've just 
overwritten an instruction in your program with a piece of data! 
There could be an instance in which you'd do this deliberately, but 
it's somewhat unlikely. By always starting the name of a subroutine 
or entry point with the letter "S", we give ourselves an easy way to 
check what we're doing. We make it a practice to double check any 
instruction whose operand is a label that begins with H S", to make 
sure we aren't doing something strange to a subroutine. 


PROBLEMS 

8.1 . Rewrite the long move program from Session Seven so that it 
moves $1000 bytes from $2000 to $B000, then moves $1000 
bytes from $A000 to $9000. Do this by making the move portion of 
the program into a subroutine called SMOVE, and doing the 
initialization twice, once for each move. See Listing 8.1 in Appendix 
A for a solution. 
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The Stack (and The Registers) 

(A True Story) 


To understand how JSR and RTS actually work, we need to 
learn about a special data structure called a stack. Most modern 
computers have this data type, which can best be represented by a 
stack of plates. If you always eat at fast food establishments, and 
have very little experience with dishes, you'll have to concentrate 
very hard in this section. Maybe you could study with a friend who 
has plates, or look in the Monkey Wards catalog for a picture to help 
you understand. 

Computer people are fond of little acronyms that mean 
nothing to those outside the membership of Computer Hackers 
Anonymous. One of these is LIFO, which stands for Last In, First 
Out. Those four little letters tell you almost everything there is to 
know about a stack. Imagine your data written on those plates (if 
you like the hands-on method, get out some paper plates and write 
data on them. It is not nice to paint data on the good china). Start 
stacking the plates, one on top of the other. What if you want to get 
to the data on the third plate from the bottom? You're not allowed to 
slide one plate out to look at it, while keeping your finger in its place 
so you can put it back where it belongs later. You must remove 
plates, one at a time, from the stack, until you reach the piece of 
data you wanted to access. This may sound like a real pain, and 
totally worthless, but it's very useful when it comes to nested JSR's. 
The RTS's must be executed in the correct order, and return to the 
correct position in the program. How does it work? The answer 
which follows is specific for the 6502 microprocessor. Other 
microprocessors may deal with this a little differently! 

The instruction, JSR, pushes two values onto the stack. The 
first is the high byte, and the second is the low byte, of the address 
of the instruction just completed (the JSR), plus 2. Why plus 2? 
This has to do with the internal design of the CPU, and isn't 
anything the assembly language programmer needs to worry about. 
An example we'll give in a moment should clarify this even more. 
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An RTS instruction "pulls" (POP in BASIC) two values from the 
stack to get the two-byte address of the most recent JSR (plus 2), 
and increments this address to get the two-byte address of the next 
instruction to be executed. If there is garbage in the stack, there's 
no telling where the RTS will take you (your mother/father/second 
grade teacher was right to tell you it's a bad idea to let garbage pile 
up). Errors that result from careless use of the stack can be very 
hard to debug, so think about what you're doing when you use the 
stack. 

In the code below, addresses of each instruction have been 
placed to the left of the source code line to enable you to visualize 
the use of the stack by JSR and RTS: 


800: 

803: 

• 

• 

JSR 

BRK 

$2000 

• 

« 

• 

2000: 

JSR 

$3000 


2003: 

• 

• 

RTS 


$0802+1 =$0803 

• 

• 

3000: 

RTS 


$2002+1 =$2003 


Let's follow the process. The first JSR pushes $0802 onto 
the stack, $08 first and $02 second. It then causes a jump to $2000, 
where a second JSR is encountered. This one pushes $2002 onto 
the stack and jumps to $3000. There we encounter an RTS, which 
pops $2002 off of the stack, increments the value by one to get 
$2003, and jumps to 2003. Note that this is right after the JSR. The 
RTS at $2003 pops the next two values off of the stack ($0802), 
increments the address, and jumps to $0803 after the first JSR. 

It’s really not too hard to get an idea of what’s going on in the 
stack. Where is the stack located, though? Quite a while ago, we 
briefly mentioned the S register, or stack pointer. This is not the 
stack. The stack itself is physically located in page one of the 
Apple's memory. This is why you should never store to an address 
in page one of memory ($0100 to $01 FF). 
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The S register is used to point at the next byte in page one 
which is available for use by the stack (the first free byte in the 
stack). Since it is an 8-bit register it can only look at one byte of an 
address at a time (but that's OK - since all the addresses are page 
one, the high byte is always $01, so the S register only needs to 
hold the low byte). You'll recall that when we set up a loop for our 
move routine, we set it up so that it counted backwards, using 
decrements. A similar situation prevails with the stack pointer. Most 
operating systems initialize the S register to $FF, corresponding to 
the memory location $01 FF, and fill the stack from the top down, as 
far as addresses are concerned. The stack is holding two-byte 
addresses, for the most part, so although it is 256 bytes long, it can 
hold at most 128 address (2 bytes each). That means that you can 
have JSR's nested a maximum of 128 deep (though in practice the 
stack is sometimes used for other things as well, and you shouldn't 
count on being able to nest JSR's 128 deep). Fortunately, you are 
unlikely ever to need to nest that many JSR's. Only a recursive call 
is likely to have problems with this limitation. 

The consequence of the limited size of the stack is that if you 
attempt to place more than 256 bytes of information on the stack, 
you'll begin to lose (forever!) the oldest information on the stack. If 
you place a 257th item on the stack, the first item (in $01 FF) is lost. 
If you make extensive use of the stack, be sure you don’t overload 
it, or you'll break the dishes on the bottom! 

This is actually sort of a circular business, like zero page 
wraparound, and here the analogy with a stack of plates breaks 
down. The 257th value is stored at the same memory location as 
the very first value pushed onto the stack. If you were to pop a 
value from the stack at this point, it would be the value you just 
stored at that location, not the first value stored there. When a 
value is placed on the stack, it is placed in memory at the location 
pointed to by the S register, and the pointer (S register) is then 
decremented internally (you don't have to do any decrementing; 
the system does it for you). When a value is taken off the stack, the 
pointer is first incremented internally, so that it points at the last 
location in use, rather than at the next available location, and then 
the value is taken off the stack. 

• • s 
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PROBLEMS 


8.2. This is a very challenging program assignment. If you aren’t 
able to do it, at least look at Listing 8.2 in Appendix A and follow it 
through. Write a program which multiplies two 2-byte numbers 
using recursion. The main program should initialize NUM3 to zero, 
and initalize NUM1 and NUM2 to be the values to multiply. It should 
then call a subroutine which checks NUM2. If NUM2 is 0, it does an 
RTS; if NUM2 is not zero, it adds NUM1 to NUM3, saving the result 
in NUM3, decrements NUM2 by one, and calls itself . A subroutine 
that calls itself is called a recursive subroutine. Try it with a few 
values. Trace through the code to see how it works. Why doesn't 
the program work if NUM2 is larger than 1 26? 
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Some New Instructions 


(For Your Eyes Only) 

Here is a potpourri of miscellaneous useful instructions which 
you are now at a level to understand. Some uses are given, but we 
will not actually make use of all of these in our future program 
examples. 


PHA ( PusH Accumulator ) 

This instruction (PusH Accumulator) stores the value in the A 
register in the first available byte of the stack. It uses implied 
addressing and therefore has no operand. The machine language 
op code is $48. No flags are modified by this instruction. The stack 
pointer is automatically decremented when this instruction is 
executed. There is no equivalent of this instruction in BASIC. Be 
sure and do a PLA (described in the next paragraph) before trying 
to do an RTS. 


PLA ( PulL Accumulator ) 

The instruction, PulL Accumulator (PLA) automatically 
increments the stack pointer, and then loads the value at the 
address referenced by the pointer into the accumulator. PLA also 
uses implied addressing (and so has no operand). Its machine 
language op code is $68. No flags are modified by PLA. The 
BASIC instruction, POP, is roughly equivalent to two consecutive 
PLA's. When you use BASIC's POP, you essentially make BASIC 
"forget" the most recent RETURN location. To eliminate a RETURN 
means eliminating a 2-byte address; since PLA removes only one 
byte from the stack, we must PLA twice: 

$1000: JSR $2000 

$2000: JSR $3000 

$3000: PLA TAKES $2002 OFF THE STACK 

PLA (FIRST REMOVES $20, THEN $02) 

RTS GOES TO INSTRUCTION AFTER 

FIRST JSR 
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TAX ( Transfer Accumulator to X ) 

The instruction, Transfer Accumulator to X (TAX) copies the 
value in the A register into the X register. TAX uses implied 
addressing (no operand); its machine language op code is $AA. 
The zero and negative flags may be set or cleared as a result of this 
operation. Recall that the zero flag is set (Z-bit = 1) if the result is 0 
and cleared (Z-bit = 0) if the result is non-zero. The negative (minus) 
flag is set (N-bit = 1) if the result is negative and cleared (N-bit = 0) if 
the result is greater than or equal to zero. 


TAY ( Transfer Accumulator to Y ) 

Transfer Accumulator to Y (TAY) works in a manner similar to TAX. 
It also uses implied addressing, and modifies the zero and negative 
flags. The machine language op code is $A8. The value in the 
accumulator is copied into the Y register. 

TXA ( Transfer X to Accumulator ) 

This is the inverse instruction of TAX. Transfer X to 
Accumulator copies the value in the X register into the accumulator. 
Implied addressing is used, and the Z and N flags are modified. The 
machine language op code is $8A. 


TYA ( Transfer Y to Accumulator ) 

Transfer Y to Accumulator copies the value in the Y register 
into the accumulator. TYA uses implied addressing and modifies 
the Z and N flags. Its machine language op code is $98. 


TSX ( Transfer S to X ) 

This instruction, Transfer S to X, copies the value in the stack 
pointer into the X register. It uses implied addressing; the machine 
language op code is $BA. No flags are modified by TSX. This is the 
only way to find out where the stack pointer points. 
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TXS { Transfer X to S ) 


Transfer X to S sets the stack pointer to the value found in the 
X register. Implied addressing is used; no flags are modified. The 
machine language op code is $9A. This is how the operating 
system initializes the stack pointer. 


EXAMPLE 

• • • • • m m 

% 

A common use of the stack is to save register values. Here is 
an example which uses the stack to save the values in A, X, and Y 
before a JSR, and retrieve those values after returning from the 

Note particularly the order in which these tasks are 


"A" VALUE ONTO STACK 
MOVE X INTO A SINCE CANT PUSH X 
"X" VALUE ONTO STACK FROM A 
MOVE Y INTO A SINCE CANT PUSH Y 
"Y" VALUE ONTO STACK FROM A 
SUB1 PUTS ADDRESS ON TOP OF "A" VALUE 

RTS PULLS ADDRESS FROM STACK 
PULL "Y" VALUE FROM STACK INTO A 
PUT "Y" VALUE BACK INTO Y 
PULL "X" VALUE FROM STACK INTO A 
PUT "X" VALUE BACK INTO X 
PULL "A" VALUE FROM STACK 

% 

Another common use for the stack is to save the values in the 
processor status register (these are the values of the various flags 
we've been learning about). 

PHP ( PusH Processor Status ) 

PusH Processor status copies the processor status register 
into the next byte of the stack. This instruction uses implied 
addressing and modifies no flags. The machine language op code 


subroutine 

performed 


PHA 

TXA 

PHA 

TYA 

PHA 

JSR 


PLA 

TAY 

PLA 

TAX 

PLA 



PLP ( PulL Processor Status ) 

PulL Processor status copies the most recent stack entry into 
the processor status register. All flags are modified, since all bits of 
the P register are affected. Implied addressing is used; the machine 
language op code is $28. 


EXAMPLE 


If you wish to save processor status flags and then reuse 
them, be sure that the first step in the program segment is PHP, so 
that the flags are stored on the stack in their original condition. 
Then, perform whatever other operations were necessary, and last, 
retrieve the old P register values with PLP. It's important that this be 
the last step, since any intervening steps will modify the processor 
status flags. For example, to save all registers for a subroutine call, 
including the P register, one would use the following code: 

PHP save register values 

PHA values onto stack 

TXA 

PHA 

TYA 
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Tricks with the S Register 

* • 

- - fc- 

You cannot load directly into, or save directly from, the stack 
pointer. There is, however, an indirect way to initialize the stack 
pointer, using the TXS instruction: 

LDX #$FF 

TXS 

* * 

_ • - % 

* • . • 

loads the value $FF into the stack pointer. 

9 

• " • 

This is useful to solve a problem that arises if an error occurs 
after several JSR's, and we want to have an error handling routine 
which will return us to the operating system or whatever program 
segment called the first subroutine. This can be handled by using 
these instructions at the beginning of your program: 

TSX 

STX TEMPSTACK 

When an error condition calls the error processor subroutine, 
the last three lines of this subroutine are: 

LDX TEMPSTACK return address from first call 

TXS 

RTS 

The RTS now goes back to the operating system (or whatever 
routine called the subroutine that saved the stack pointer). 

We will deal more with error handling as we continue to 
develop our calculator program, particularly as we begin to deal with 
keyboard input. This should give you a taste of how at least one 
kind of error may be handled. 

One last word of caution regarding the stack: the stack's major 
importance is for JSR’s and RTS's. If you use it for special 
applications, be sure it's OK (put everything back where it was) 
before executing an RTS, lest you return to a different location than 
you had planned on. 
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Session Eight Summary 

Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC - 

add with carry 

BCC - 

branch on carry clear 

BCS - 

branch on carry set 

BNE - 

branch not equal 

BRK - 

break 

CLC - 

clear carry 

DEC - 

decrement 

DEX - 

decrement X 

DEY - 

decrement Y 

JSR - 

jump to subroutine 

INC - 

increment 

INX - 

increment X 

• 

INY - 

increment Y 

LDA - 

load A 

LDX - 

load X 

LDY - 

load Y 

PHA- 

push A 

PHP- 

push P 

PLA - 

pull A 

PLP - 

pull P 

RTS - 

return from subroutine 

SBC - 

subtract with carry 

SEC - 

set carry 

STA - 

store A 

STX - 

store X 

STY - 

store Y 

TAX - 

transfer A to X 
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TAY - transfer A to Y 
TSX - transfers to X 
TXA - transfer X to A 
TXS - transfer X to S 
TYA - transfer Y to A 


Addressing Modes 

absolute 

immediate 

implied 

9 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 

comments 

END 

ENTRY 

EQU 

GEQU 

KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
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SESSION NINE 

* 

Input and Output 

(Getting It On and Getting It Off) 

. * * 

\ - 

I/O, I/O 

(It's Off To Work We Go!) 


To understand how we will handle input and output, we first 
have to take a look at how the CPU views input and output devices. 
One characteristic of the 6502 microprocessor is that it does not 
differentiate between memory and input devices (such as the 
keyboard) or output devices (such as the screen). These devices 
are treated as though they actually were memory! This is known as 
memory-mapped I/O. Of course, there is a difference between 
memory and I/O devices, and the memory locations we will be using 
for I/O are not really RAM in the usual sense (though we, like the 
6502, will treat them as such). We'll take for granted the special 
electronics which allow this to occur, since those electronics are no 
more apparent to the CPU than to us, and go on to the discussion 
of some of the mechanics of input. We’ll also look at some of the 
Apple Monitor's routines for I/O, and write a few ourselves. 

Since we are treating I/O devices as memory, we might 

assume that if we want to read a byte of information from an input 

• • • • 

device, we must execute a load instruction (LDA, for example). 
This is, in fact, the case. In a similar fashion, if we wish to output a 
byte (to the screen, for example), a store instruction must be used 
(such as STA). This information is passed along the data bus, just 
as is information being loaded from, or stored to, ordinary memory. 
The address bus is used to access these I/O devices, just as it is 

used to access other areas of memory. The peripheral devices thus 

* • 

have "addresses", as do other memory locations. 
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MEMORY MAP 

• • 

Before starting on memory mapped I/O, let's take a look at a 
memory map. Figures 1 and 2 show diagrams of the memory in a 
64K Apple. 

* 


$FFFF 




$6000 


$4000 hi res 2: $4000-$5FFF 


$2000 hi res 1 : $2000-$3FFF 


$0800 

$0000 system space 
Figu re 1 

% 

Apple ][ Memory Map 




$0800 

* m % 

40 column screen (or half of the 80- 
column Apple He or Apple // c 
screen) 

$0400 

vectors (page three) 

$0300 

input buffer (page two) 

$0200 

stack (page one) 

$0100 

zero page 

$0000 

Figure 2 

Expanded View of System Space 


We will discuss many of these areas in detail in the remainder 
of this session. (Note that you are already familiar with some of them. 
We have already talked about the stack and zero page.) The 
memory map also shows why programs generally start at $800, 
since there is a fairly large block of otherwise unused space 
between $800 and $2000. 

In Figure 2, we labeled page 3 as "vectors". Vectors are 
memory locations which store addresses needed to transfer control 
to certain subroutines, and include the reset vector, break vector, 
and interrupt vectors. All of these are fairly advanced topics which 
we will not deal with in this book, but keep in mind that their use of 
page 3 is requires a small number of bytes - it is safe for you to use 
the memory from $300 to about $3E0. Since BASIC does not use 
this area, it is a good place to put small assembly language 
subroutines to BASIC programs. 

205 




The memory map shows the area from $800 to $BFFF as free, 
except for occasional use for graphics. All of this memory is free if 
you are using a tape based system, but Apple DOS resides from 
about $9600 to $BFFF (the lower limit can change a little as buffers 
are added and subtracted). The DOS ORCA/M operating system 
uses $B000 to $BFFF. Under ProDOS, ORCA/M uses $800 to 
$2000, and ProDOS uses $BF00 to $BFFF. If your programs are to 
live comfortably with these operating systems, they must not write 
over the memory in use! 

Things start to get messy at $C000. It is here that we 
encounter a 4K area where there is no RAM - and at $D000 to 
$DFFF there are Mq 4K blocks of RAM. We still end up with the full 
64K of RAM advertised when we bought the machine, even though 
it's organized a little differently than we might first have expected. 


The area from $C000 to $CFFF is the memory mapped I/O 
area. To the CPU, it looks like there is RAM here, and it can read 
from and write to those locations. In fact, though, there is no RAM, 
only the input and output circuitry. The computer does special 
things when the CPU reads and writes in these areas; some of them 
will be covered in this session. One of the things the computer 
does is to select which of the two areas of RAM at $D000 the CPU 
will see when it reads and writes. This is called bank switching. To 
make things interesting, the area from $D000 to $FFFF is also used 
by the Applesoft BASIC ROM (read only memory). Again, proper 
sequences of reads and writes in the memory mapped I/O area lets 
your program see the ROM or RAM, at its choice. 


worry 


important now is that you remember that things are not as they 
seem from $C000 on. As we continue, you will learn to use some of 
the features of this area, and after seeing some examples, you will 
be prepared to look through the 
on features you want to use. 
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INPUT 


Our first venture into the world of memory-mapped I/O will deal 
with two memory locations. $C000 is the address of the keyboard. 
This byte of memory holds the last byte typed from the keyboard. 
The second address, $C010, is the address of the strobe, which 
allows us to set $C000 so that we know the value has already been 
read. After the strobe has been written to or read from (which 
occurs as part of a machine language subroutine which allows 
keyboard input), the value of the keyboard is changed. It is 
unnecessary to know all the details of this process, since it is 
automagical... electric... and the computer does it for us. However, it 
is necessary (and not too painful) to have an overview of what's 
going on. 

• M 

Each character is represented by a one byte code number. 
The Apple, and 90% of the other computers on the market, use the 
ASCII character set. (The most notable exceptions are some main 
frame computers produced by IBM). Just about any reference 
manual contains a copy of this character set, so refer to your 
favorite. The A pple Reference Manual will do just fine. There are 
128 characters, including 26 capital letters, 26 lowercase letters, 10 
digits, and 33 special function characters, such as carriage return. 
For example, "A" = 65 = $41, and "O'' (zero) = 48 = $30 (note that 
"0" does not equal $00 - this might be convenient, but that's not 
how it is). The 128 characters can be represented by $00 to $7F (all 
these numbers have the high bit off), and in fact 90% of all 
computers use this representation. The Apple is in the 10% 
minority which represent keyboard characters with code numbers 
having the high bit ssl (so that "A", instead of being represented by 
$41 , is represented by $C1 ). It is the status of this high bit which 
allows us to tell if a character is newly typed or not: when the high bit 
is set, the code number is negative; after being read, this is 
changed to a positive number by clearing the high bit. After reading 
a newly typed key (for example, "A"), keyboard input routines do a 
STA $C010. One of the side effects of this STA is that the value at 
$C000, which was originally the negative number, $C1 , is changed 
to a positive number, $41 . (Remember that we are not dealing with 
real RAM here, but with the input and output circuitry. This is where 
the "side effects” come from). 
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Consider the following simple input routine. 


KEYIN 

START 



KEYBOARD 

EQU 

$C000 


STROBE 

EQU 

$C010 

• 

% 

LB1 

LDA 

KEYBOARD 

SCAN UNTIL ANEW 


BPL 

LB1 

KEY IS TYPED 


STA 

STROBE 

SET STROBE TO 

♦ 

• 

• 

SHOW AN "OLD" 

* 

RTS 


CHARACTER 


END 

• 



The LDA and BPL instructions form an infinite loop until a key 
is hit. This new key has a negative code, so the branch is no longer 
taken, and a value is now stored in the strobe. (Don't forget the 
magic part where the high bit is cleared to indicate an old character -- 
this makes the value in the keyboard positive). It's also worth noting 
that when you first turn the computer on, the strobe is cleared to 
permit keyboard input. It's not necessary to know the exact 
mechanism by which this is accomplished (if you just have to know, 
consult the listing of the RESET code in the F8 ROM listings from 
the ADDle Reference Manual.} 


In fact, the Apple has a better routine built into its F8 ROM. In 
addition to what's done above, this Apple routine initializes a 
random number generator, and puts the cursor onto the screen. 
See p.6 of the App le ][ Reference Manual , or p.13 of the Apple //e 
Reference Manual for more good information about reading the 
keyboard. 

* 

APPLE INPUT ROUTINES 

page 62 (Apple ][) or page 53 (Apple //e). If it's not handy, go get it. 
Now. If you don't have one, you might give some serious 
consideration to acquiring one. Beg or borrow, but please don't 
steal! (Some desperate individuals have been known to stoop to 
writing letters to Santa Claus.) 
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Now that you're looking at page 62 (or page 53, as the case 
may be), we're going to look at some of the Apple input routines. 
These are subroutines which Apple kindly placed in a ROM, called 
the F8 ROM, so that they would always be available to your 
programs. You can use these routines in your programs by the 
appropriate use of global equates: 


KEYIN 

GEQU 

$FD1B 

RDKEY 

GEQU 

$FD0C 

GETLNZ 

GEQU 

$FD67 

GETLN1 

GEQU 

$FD6F 

GETLN 

GEQU 

$FD6A 

LINE 

GEQU 

$200 


With the exception of LINE, these are Apple's names for these 
routines. (LINE is a name we are giving to the input buffer.) 


KEYIN ( KEYboard INput ) 

This is the routine we referred to earlier, when we said that 
Apple had a better routine than the KEYIN routine we wrote. Like 
ours, it looks at the keyboard ($C000) and waits (in the loop) until a 
key is pressed. The code for the key which is pressed is stored in 
the accumulator, and the flashing cursor disappears. It also 
generates a random seed value for the random number generator. 


RDKEY ( ReaD KEY ) 

This is a routine for character input. It causes an input cursor 
to appear on the screen and makes a jump to an input subroutine 
(usually KEYIN, described above). The address of the input 
subroutine is stored in $38 and $39. It is the standard routine used 
for one key input. It can also be used to take input from a source 
other than the keyboard, such as a disk or a thermometer 
connected to the Apple through an I/O port. Even though we won't 
look at exactly how this is done, the fact that it can be done at all 
makes it worthwhile to get into the habit of calling this subroutine 
instead of KEYIN when you want to read a character. 
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GETLN ( GET a LiNe ) 

• " • / 

This is the routine of choice for input of whole lines rather than 
individual keys. GETLN is able to backspace (using the left arrow) 
and recopy characters (using the right arrow). It begins by looking at 
the value in $33 to determine the character to be used as a prompt: 
in Applesoft, this is in Integer Basic, it is ”>", under ORCA it is 
"#", while in the Apple Monitor it is This version of GETLN 
provides not only the prompt character, but also a flashing cursor, 
and in general does what you would expect from a routine with this 
name: takes an entire line of keyboard input (up to a carriage return) 
and stores it in an input buffer which we called LINE in the global 
equates listed above. This is the page 2 area shown in the memory 
map at the input buffer. The number of characters in the line is 
stored in the X register. 


GETLNZ ( GET a LiNe Z ) 

This is an alternate entry point for the GETLN routine 
described above. The difference between the two is that GETLNZ 
issues a carriage return before executing the rest of the GETLN 
routine. (This puts the prompt character and cursor on the next line 
of the screen). ..you do remember what an entry point is, don't you? 
GETLNZ is located at $FD67. 


GETLN1 ( GET a LiNe 1 ) 

This is another alternate entry point for GETLN, which does 

not issue a prompt (unless you backspace so far that you go 

beyond the beginning of a line or delete the entire line by using 

CTRL-X). This routine is located at $FD6F. It is useful for those 

cases where you want to write out a full test prompt, like "Enter 
date: ". 
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LINE 


This is not an I/O routine, but rather the location (page two of 
memory) of the input buffer. The line gathered by GETLN or its 
relatives is generally stored here, although some copy-protection 
schemes may place the input buffer elsewhere. Because page two 

t • * # 

has only 256 memory locations, the maximum length of a line is 255 
characters plus a carriage return. Apple calls this "IN", but we will 
continue to use the label LINE. 


AND STILL MORE... 



If you've been looking in your 
you've seen a number of routines other than those described here. 
If you wish to use them, you will probably do so by using global 
equates to label these routines with their common names. There 
are some routines which you’ve probably used in your BASIC 
programs which are not included in these listings. HOME, VTAB, 
and HTAB are considered "non-standard” routines, which means 
that Apple makes no commitment to maintain these routines in the 
future. We will show you where these are later, though. 


A word of warning to those true hackers who like to use 
alternate entry points of their own choosing: while Apple made sure 
that the addresses of these monitor routines were the same in the 
Apple ][ and Apple He, so that programs written on one machine 
would be compatible with the other, the code for a given routine 
may vary from rhollel to model. Thus it will be difficult to set up 
alternate entry points which are compatible with all versions of the 
Apple. 
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Screen Output 


(Cycle Stealing, and Other Diversions) 


Now that we have several routines tor handling input, it's time 
to turn our attention to the task of writing output to the screen. 
Screen output is a sort of half-and-half proposition: half RAM and 
half memory-mapped I/O. The addresses used are found from 
$0400-$07FF. For more specific information on these addresses, 
you are invited to browse through the Monitor ROM and/or 
Autostart ROM listings in the Reference Manual (you didn't think we 
were going to do all the work, did you?) As we did with input, we’ll 
look at (and write) routines which deal with one character at a time. 

Your Apple's internal clock operates at a frequency of 7 
megahertz (7,000,000 cycles per second), but the 6502 
microprocessor in your Apple runs at only 1,000,000 cycles per 
second. This provides the opportunity for "cycle stealing" by 
screen output hardware. Memory in the Apple can be accessed 
twice as fast as the CPU can use it, which allows the CPU to work on 
memory during one cycle, and write to the screen during the next. 
Our eyes (and our monitors) are not able to detect this rapid cycle of 
output/no output, so it looks to us as though whatever we're 
looking at has been written to the screen for us alone. 

First, we'll look at two routines for writing characters to the 
screen, and for sending a carriage return to an output device so that 
a new line can be begun: 


COUT ( Character OUTput ) 

This acronym stands for Character OUTput. This is hard to do 
manually, especially since this routine automatically handles 
scrolling the screen. The character being written to the screen must 
be in the accumulator when COUT is called. COUT then calls 
another character output routine, whose address is stored at $36 
and $37. Usually, this routine will be one called COUT1, which 
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writes the character in the accumulator onto the screen at the 
current position of the output cursor (the output cursor is invisible - 
the computer keeps track internally of where the next character will 
be placed). This routine can also cope with little niceties such as 
inverse and normal mode output, carriage returns, linefeeds, and 
bells. COUT is located at $FDED. 


CROUT ( Carriage Return OUTput ) 

* 

CROUT stands for Carriage Return OUTput, which sends a 
RETURN character to the output device currently in use. (In our 
case, that's the screen). It is located at $FD8E. 

* 

Names such as COUT and CROUT have become fairly 
standard nomenclature - since that's what Apple calls these 
routines, we all use these names, even when we write our own 
software . 

Now let's look at a segment of code that can read a keypress 
and echo it to the screen, using the routines we've been 


discussing: 

• 



HOME 

EQU 

$FC58 

APPLE MONITOR ROUTINES 

RDKEY 

EQU 

$FD0C 

« 

COUT 

EQU 

$FDED 


CROUT 

EQU 

• 

$FD8E 

l 


JSR 

HOME 


TOP 

JSR 

RDKEY 

• 


JSR 

COUT 



JSR 

CROUT 



JMP 

TOP 

. 


First, note that HOME is not one of Apple's standard routines. It will, 
however, work on all current versions of the Apple ][ F8 ROM when 
used with 40 column displays. Okay, so we can print something on 
the screen... but we're just taking potluck on where it will be printed 
(wherever the output cursor is when we call COUT). How can we 



ORCA/EZ 1.0 


0001 

0800 



PRINTER ON 


0002 

0800 



KEEP PRQG9. A. OBJ, V100 


0003 

0800 

**************************************** 

0004 

0800 

* 


- 

* 

0005 

0800 

* 

SVTAB - VERTICAL TAB 

• • 

* 

0006 

0800 

* 

* 

w 


THIS SUBROUTINE PLACES THE 

* 

0007 

0800 

* 


CURSOR ON A SPECIFIED LINE 

* 

0008 

0800 

* 


ON THE SCREEN 

* 

000? 

0800 

* 


• 

* 

0010 

0800 

* 

INPUTS: 

* 

0011 

0800 

* 


A-LINE NUMBER <0 TO 23) 

* 

0012 

0800 

* 


THIS VALUE SHOULD BE IN THE 

* 

0013 

0800 

* 


ACCUMULATOR WHEN THE 

* 

0014 

0800 

* 


SUBROUTINE IS CALLED 

* 

0015 

0800 

* 



* 

0016 

0800 

* 

OUTPUTS : 

* 

0017 

0800 

* 


CV - SET TO A 

* 

0018 

0800 

* 


BASL - SET TO ADDRESS OF LINE A 

* 

0019 

0800 

* 


• 

• 

* 

0020 

0800 

**************************************** 

0021 

0800 

* 




0022 

0800 

SVTAB 

START 

9 

0023 

0800 

CV 


EQU $25 VERTICAL CURSOR 


0024 

0800 

BASL 

EQU $28 LINE ADDRESS 


0025 

0800 

TABV 

EQU $FB5B VERTICAL TAB 


0026 

0800 





0027 

0800 8525 



STA CV 


0028 

0802 205BFB 


• 

JSR TABV 


0029 

0805 60 



RTS 


0030 

0806 



END 



Local Symbol Table 

BASL 0028 CV 0025 TABV FB5B 


Global Symbol Table 
SVTAB 0800 
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« 


The Apple has several zero page locations which are used to 
determine the position of the cursor. CV (Cursor Vertical), at $25, 
holds the line number on which the cursor is located (line 0 to line 
23, for a total of 24 lines on the screen at once, as you would 
expect). CH (Cursor Horizontal), at $24, holds the horizontal 
position of the cursor (a number from 0 to the maximum length of a 
line - for a normal, 40 column screen, this will be a number from 0 to 
39). A third position, BASL (BASe address for a Line) is actually 
used by output routines instead of CV, which is mostly a 
convenience for programmers. BASL is located at $28, and 
contains the 2-byte address of the first character of the line. For 
example, if the value of BASL is $400, and we are using a standard 
40-column line, location $400-$427 are reserved for the 40 
characters which can be on that line. It is important to know, 
however, that the lines on the screen are not sequentially located in 
memory. 

• _ v • 

• • • * 

% ® m & 

So far we have discussed only the standard 40-column 
screen, and for good reason. For all the convenience they afford, 
all 80-column boards are a little, shall we say, weird. They can do a 
very efficient job of confusing things (and confusing programmers, 
too). You'll be glad to know, though, that COUT still works just fine 
with an 80-column board. The locations we've been working with, 
such as CV and CH, should be used only with a standard 40-column 
screen. Why ask for trouble? (Those who do want to ask for trouble 
can check the documentation for their printers or 80-column cards 
and rewrite parts of the routines they want to use to accommodate 
the eccentricities of their systems). 

We can use another undocumented Apple Monitor routine to 
write an assembly language VTAB. We'll use TABV at $FB5B, and 
input a line number to tab to. The routine will store this value in CV, 
and call a routine to compute BASL. (See Listing 9.A.) 

To put the cursor in column three of the current line (and of 
course, you can change values to place the cursor in another 

column), the following two instructions can be used: 

• • m 

LDA #2 
STA CH 
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We load the value 2 into the accumulator (rather than 3), because 
the first column is numbered as column 0. 

Now that we can put the cursor wherever we want it, we’re left 
with the problem of writing a line to the screen. There is no Apple 
Monitor routine to do this for us. ORCA/M users will have different 
problems with this process, and should refer to the documentation 
on the PUTS macro. The ORCA/EZ Assembler has a library 
subroutine to make this task easy. 

Use the editor to get into the file SUBS.UTILITY2 and locate 

the routine called SRITE. In this routine, the A register will contain 

the high byte of the address of the first character of the line, the X 

register will contain the low byte of this address, and the Y register 

will contain the number of characters. Count the number of pages 

in the routine, multiply by 22 lines per page, and push this number 

of lines into the copy buffer. Change files, to get back into your own 

program, and pop the lines of SRITE into your program. Be sure to 
include the global equate 

CHRAD GEQU $FE 

at the top of your program when using SRITE. (If you are having 
difficulty with the mechanical process of moving the subroutine, 
refer back to chapter 4 and reread the sections on the ESC-P and 
CTRL-P Editor commands). 

An alternate entry point to SRITE is SRITE2, and it does 
everything SRITE does, but stays on the same line. You may want 
to use this to format your output. 

Important note!!! It is the policy of The Byte Works (at the time 
of this writing) to allow use of any part of the subroutine library in 
almost any software. The only requirement you must fulfill before 
distributing a program that uses ORCA libraries is to register that use 
with The Byte Works. This is to protect the copyright, and since it's 

so easy, and free, don't neglect this. It’s more than a courtesy, it’s 
compliance with copyright law. 
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Constant and Variable Definitions 

* * 

• _ • m 

(You Can Have It Both Ways) 

s 

■ • • r • 

• » m • * • 

• • • » 

• « • • 

• * • % • • 

6 m m * • 

* * 

One of your problems will be to write a string to the CRT. To 
do this, it would be nice to know how to put a string into your 
program. This section will cover two new assembler directives, DC 
and DS. These are the only directives we will look at in this book 

that actually place something in memory. 

* * 

You should also be warned, if you are not using ORCA, that 
the way constants and variables are defined is one of the primary 
ways that assemblers differ. If you look at the documentation for the 
assembler you are using, you should find assembler directives 
which have the same capabilities as those presented here. 

First, let's consider where data should be placed within a 
subroutine. If you think about it, it's pretty obvious that a byte of 
memory can be used for either data or program - there is nothing to 
distinguish the two. If the CPU innocently stumbles upon some 
data, it will do its very best to execute it. This can, to say the least, 
give strange results. So we want to put data somewhere where it 
will never be executed. Obviously, the top of the subroutine, 
where the equates are placed, is not a good place. Instead, data is 
placed at the end of subroutines, after the RTS, but before the END 
directive. Because the assembler reads all of the source code for 
the program, data placed between RTS and END in a subroutine is 
adequately dealt with. Since we are dealing with an assembler, not 
a line-by-line interpreter, you don’t have to worry that the program 
"will never get to that line”. (This is similar to the situation in BASIC, 
where DATA statements may be placed anywhere in the program, 
even after the END). 

DS ( Define Storage ) 

• • 

One thing we might want to do in this area is to merely leave 
some empty space. We might not even care what starts out in that 
space. If that is the case, we use the DS (Define Storage) 
assembler directive. The operand is the number of bytes we want 
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to reserve; the label field can be used as the name of the data. As 

m • m m m # % 

an example, let’s define a two byte area for the result of an addition 
and call it NUM3. Then we would use 

NUM3 DS 2 

DC ( Declare Constant ) 

• » • 

How about the two numbers to add? In that case, we may want' 
a very specific value in the locations when we start. Let’s initialize 
two 2-byte integers, one with a value of $5A and one with a value of 
-6. We do this with a DC (Declare Constant) assembler directive: 

NUM1 DC l’$5A' 

NUM2 DC l’-6‘ 

• • 

DC comes in more than one flavor. By changing the operand to 
II instead of I, we could have defined one byte integers, instead of 
two byte integers. We can also define a sequence of ASCII 
characters, which is what you will need to do for problem 9.1 : 

MSG1 DC C’A MESSAGE’ 

To quickly review the format for the operand: the operand begins 
with a code that indicates the type of constant to be declared, 
followed by the value of that constant enclosed in single quotes. 
The types of constants we have discussed are: 

I - 2-byte integers 

II - 1-byte integers 

C - characters or strings of characters 


A final note is in order: it is possible to define zero bytes of 
storage with a DS statement. This gives a place to put a label 
without using any space. This can be especially handy if you want 
to know the length of a character string to pass it to SRITE without 
needing to count the characters - it also lets you change a message 
without changing the code used to write it. For example, a typical 
call to SRITE might look like this: 
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LDA 

#>MSG1 


LDX 

#<MSG1 


LDY 

#MSG2-MSG1 


JSR 

RTS 

SRITE 

• 

• 

MSG1 

DC 

C'A MESSAGE' 

MSG2 

DS 

0 


Note that the last line saves 0 bytes of memory. 


PROBLEMS 

9.1. Write a program to write a message to the screen. For a 
solution, see Listing 9.1 in Appendix A. 

9.2. Use GETLN to input a line. Echo the line as output, print a 
blank line, and repeat until you encounter RESET. If you’re 
ambitious, use Q <return> as the exit condition. For our routine, 
see Listing 9.2 in Appendix A. 
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Session Nine Summary 
Apple Monitor Commands 

m m B m • 

s m 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC - 

add with carry 

BCC - 

branch on carry clear 

BCS - 

branch on carry set 

BNE - 

branch not equal 

BRK - 

break 

CLC - 

clear carry 

DEC - 

decrement 

DEX - 

decrement X 

DEY - 

decrement Y 

JSR - 

jump to subroutine 

INC - 

increment 

INX - 

increment X 

INY - 

increment Y 

LDA - 

load A 

LDX - 

load X 

LDY - 

load Y 

PHA - 

push A 

PHP - 

push P 

PLA - 

pull A 

PLP - 

pull P 

RTS - 

return to subroutine 

SBC - 

subtract with carry 

SEC - 

set carry 

STA - 

store A 

STX - 

• 

store X 

STY - 

store Y 

TAX - 

transfer A to X 
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TAY 

TSX 

TXA 

TXS 

TYA 


transfer A to Y 
transfer S to X 
transfer X to A 
transfer X to S 
transfer Y to A 


Addressing Modes 

absolute 

immediate 

implied 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 

comments 

DC 

DS 

END 

ENTRY 

EQU 

GEQU 

KEEP 

PRINTER 

START 


Processor Status Flags 

• m 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
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SESSION TEN 

• * « 

• • • 

Decimal Number I/O 

(Back to Ten Fingers) 


Last time we started looking at input and output in assembly 
language. This session will continue that process, as well as extend 
your knowledge of the ORCA/EZ Assembler subroutine library and 
the Apple Monitor ROM. Specifically, we will start by examining the 
process that is used to convert a hex number to an ASCII string (in 
both hexadecimal and decimal format) and write it to the screen, and 
how to read an ASCII string from the keyboard and convert it to a 
binary number for the computer's use. 

This session is very different from the first nine. Up to this 
point, you really didn't know enough to do anything practical in 
assembly language. Now that you know the basics, we will start 
using all that knowledge to write real programs. This session is 
devoted to writing several small programs and making slight 
modifications to them. 


A Conceptual Overview 

(View from on High) 

Before actually looking at the subroutines and processes 
involved, let's take some time to review the concepts behind the 
way we represent numbers. So far, we have always used numbers 
represented as a series of hexadecimal (or binary) digits. This is 
fine, since that is the format that computers use to deal with 
numbers. Now we must reconsider the differences between that 
format and the one we humans usually use, the decimal number 
system. 

As an example of the difficulties that can be caused by number 
systems, consider the Romans. Roman numerals are rather 



cumbersome, if not ridiculous, for actually trying to do mathematics. 
If for some reason we were required to multiply two Roman 
numerals, say XIII and XXXIV, most of us would start by converting 
these to the decimal numbers 13 and 34, multiplying them to get 
442, and then convert this back to the Roman numeral CDXLII. But 
please, keep in mind that the following two lines are completely 
equivalent mathematical expressions: 

XIII * XXXIV = CDXLII 

13 * 34 = 442 

It is simply that people used to doing mathematics would generally 
find it easier to convert to base 1 0, do the operation, and convert 

back, than they would to do the operations using Roman numerals. 

• » 

This is the same situation that we have faced all along with the 
computer: it is possible for a computer to do mathematics in base 
10, but it is faster and requires less space to store intermediate 
results if the computer first converts to binary, does its operations 
there, and then converts back to decimal. In addition, it is important 
to realize that in most cases (and all of the ones that we will deal 
with) decimal numbers are represented as character strings. The 
computer, and the assembler, make very big distinctions between 
the number 10 and the two characters TO’. In the first case, only 
one byte is required, and it is a $0A. In the second case, two bytes 
are required, $3130 (or $B1 BO if the high bit is set - remember that 
ASCII uses the high bit off, but Apple uses it on). Since we are 
interested in reading information from the keyboard and writing 
information to the CRT or a printer, what we need are a set of 
routines to convert strings to hexadecimal numbers, and to convert 
hexadecimal numbers back to strings. 
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Writing Decimal Numbers 

(You Have Nothing Better to Write?) 

• m % 

* • 

in this section, we will develop a program to take two numbers, 
multiply them, divide them, and write both results to the screen. In 
doing so, we will make use of the subroutine library from the 
ORCA/EZ Assembler - after all, there's no reason to reinvent the 
wheel. 

As we start to make heavy use of the subroutine library, it is a 
good idea to look at some of the conventions used there. To begin 
with, the names of all subroutines in the library start with the 
character 'S', followed by four other characters. For example, the 
routine to do two byte integer multiplication is called SMULT, 
division is performed by SDIVD, and text output (as we saw last time) 
is done by SRITE. SRITE has an alternate entry point of SRITE2, 
which writes the characters to the screen, but does not do a carriage 
return to skip to a new line when finished. All alternate entry points 
use the name of the main subroutine followed by a number. 

Sometimes, a library subroutine that you want to use will itself 
use other subroutines in the library, some of which you may not 
have known were needed. As you add library subroutines to your 
program, check the block comment. The NOTES section, near the 
bottom of the block comment, will tell you if any other subroutines 
are needed, and if so what they are. 

The mathematics subroutines all work on fixed locations in zero 
page memory. These locations are defined in the zero page 
equates below. The first subroutine in your program should define 
these equates. If you do not trust your typing, or are afraid of 
missing one, all of the zero page equates are listed at the start of the 
subroutine library - you should simply push them into the copy 
buffer of the editor and pop them back out into your program. 



MIL GEQU $D0 MATH REGISTERS 

M1H GEQU $D1 

M2L GEQU $02 

M2H GEQU $D3 

M3L GEQU $D4 

M3H GEQU $D5 

SIGN GEQU $D6 

* % 

* » * * » 

Now let’s get started on the program for this section. We will 

start with fairly humble beginnings, and get the basic math parts of 
the program to work first. After that, we can come back later and add 
the output routines. The program is fairly short; it simply takes two 
numbers, multiplies them, calls an output routine, divides the same 
two numbers, and then calls the output routine again. For now, we 
will leave the output routine as a dummy routine, which includes 

only a message that will tell us whether it was called. 

* • * • 

There are a few things to notice in this program. This is only 
the second program we have written that has multiple subroutines 
(outside of using the library). To clarify it, we will start to use some of 
the commenting conventions that have been mentioned. Also 
note that some subroutines from the library are needed. By 
scanning the text, you can see that SRITE, SMULT and SDIVD are 
needed, and looking at the comment blocks for SMULT and SDIVD 
shows that both use another library routine, SSIGN. All four must be 
added to the program before it will assemble properly. As you add 

them, you might want to start using another convention. In most of 

• 6 

the ORCA code, subroutines are arranged in alphabetical order. 
This is not so important for short programs, but can be a great aid in 
locating subroutines in longer ones. (Of course, the main routine of 

the program must still come first). 

SWNUM ( Subroutine Write NUMber) 

• • 

The dummy subroutine SWNUM illustrates the technique of 
developing a program in a modular, top-down manner. Each 
section of the program is written and thoroughly debugged before 
the next section is added. This helps program development in two 
ways: first, code is developed and debugged in small, manageable 
pieces; and second, if an error is found, it is very likely that it is in the 
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ORCA/EZ 1.0 


0001 

0800 


PRINTER ON 

- 

0002 

0800 


KEEP 

PROG10. A. OBJ 

4 

% 

0003 

0800 


**************************************** 

0004 

0800 


* 

% 

* 

0005 

0800 


* LISTING 10. A 

* 

0006 

0800 

- 

* 

* 

* 

0007 

0800 

• 

* THIS PROGRAM TAKES TWO NUMBERS, 

* 

0008 

0800 


* MULTIPLIES THEM TOGETHER, AND THEN 

* 

0009 

0800 


* DIVIDES THEM 

* 

0010 

0800 


* 

• - 

* 

0011 

0800 


* inputs: 


* 

0012 

0800 

• 

* MUM1 

- FIRST NUMBER 

* 

0013 

0800 


* NUM2 

- SECOND NUMBER 

* 

0014 

0800 


* 

4 

* 

0015 

0800 


* OUTPUTS: 


* 

0016 

0800 


* MESSAGES WITH RESULTS 

* 

0017 

0800 


* • 

0 


* 

0018 

0800 

* 

* notes: 


* 

0019 

0800 


* 1) USES SDIVD, SMULT, SRITE, 

* 

0020 

0800 


* 

AND SWNUM 

* 

0021 

0800 


% 

* 


* 

0022 

0800 

- 

**************************************** 

0023 

0800 

- 

* 



0024 

0800 


MATH START 


0025 

0800 


M 1 L GEQU 

*D0 MATH REG I STERS 

• 

0026 

0800 


M1H GEQU 

*D1 


0027 

0800 


M2L GEQU 

SD2 


0028 

0800 


M2H GEQU 

*D3 

* 

0029 

0800 

• 

M3L GEQU 

*D4 


0030 

0800 


M3H GEQU 

*D5 


0031 

0800 


SIGN GEQU 

SD6 


0032 

0800 


CHRAD GEQU 

*FE CHARACTER ADDRESS 

. ■ ' 

0033 

0800 


i 

• 

(FOR SRITE) 


0034 

% 

0800 


HOME GEQU 

*FC5B CLEAR THE SCREEN . 


0035 

0800 


CROUT GEQU 

*FD8E DO A RETURN 


0036 

0800 

• 

$ 

• 

. 

0037 

0800 


5 MULTIPLY 

THE NUMBERS AND WRITE THE 


0038 

0800 


; ANSWER 


' 

0039 

0800 


* 

> 


• 

0040 

0800 

AD5908 

LDA 

NUM1 LOAD NUM1 


0041 

0803 

85D0 

STA 

MIL 

W 

0042 

0805 

AD5A0S 

LDA 

NUM 1+1 


0043 

0808 

85D1 

STA 

M1H 


0044 

080A 

AD5B08 

LDA 

NUM2 LOAD NUM2 


0045 

080D 

85D4 

STA 

M3L 


0046 

080F 

AD5C08 

LDA 

NUM2+1 


0047 

0812 

85D5 

STA 

M3H 


0048 

0814 

20F008 

JSR 

SMULT MULTIPLY NUMBERS 


0049 

0817 

A90B 

LDA 

# >MSG 1 WRITE THE ANSWER 


0050 

0819 

A24D 

LDX 

#< MSG-1 


0051 

081B 

A006 

LDY 

#MS62— MSG1 


0052 

08 ID 

207409 

JSR 

SR I TE2 


0053 

0820 

205D08 

JSR 

SWNUM 


0054 

0823 

20BEFD 

JSR 

CROUT 


0055 

0826 

“ 

■ 

> 



0056 

0826 


; DIVIDE THE NUMBERS AND WRITE THE 


0057 

0826 


5 ANSWER 

• 

• * 


0058 0826 



0059 

0826 

AD5908 


LDA 

NUM1 

LOAD NUM1 

0060 

0829 

B5D0 


STA 

MIL 


0061 

082B 

AD5A0S 


LDA 

NUM1+1 

* 

0062 

082E 

B5D1 


STA 

M1H 

- 

0063 

0830 

AD5B08 


LDA 

NUM2 

LOAD NUM2 

0064 

0833 

85D4 


STA 

M3L 

■ • * 

* 

9 

0065 

0835 

AD5C08 


LDA 

NUM2+1 

* 

0066 

4 

0838 

85D5 


STA 

M3H 

' 

0067 

083A 

207208 


JSR 

SDIVD 

DIVIDE NUMBERS 

4 

0068 

083D 

A908 

» 


LDA 

# >MSG2 

WRITE THE ANSWER 

0069 

083F 

A253 


LDX 

#<MSG2 

* 

0070 

0841 

A006 


LDY 

#MSG3-MSG2 

0071 

0843 

207409 


JSR 

SRITE2 


0072 

% 

0846 

205D08 


JSR 

SWNUM 


0073 

0849 

208EFD 


JSR 

CROUT 


0074 

084C 

60 


RTS 


4 

% 

0075 

084D 

% 

• 

$ 



9 

0076 

084D 


5 LOCAL DATA AREAS 


0077 

084D 


• 

9 




0078 

084D 

C1AAC2 

MSG1 

DC 

C-'A*B ■ 

9 

0079 

0853 

C1AFC2 

MSG2 

DC 

C’A/B * 

9 

0080 

0859 


MSG3 

DS 

0 

4 

0081 

0859 

0A00 

NUM1 

DC 

I’10' 


0082 

085B 

0300 

NUM2 

DC 

I’Z 9 


0083 

085D 

• 



END 




Local Symbol Table 


MSG1 084D MSG2 

NUM2 085B 


0853 


MSG3 


0859 NUM1 


0859 
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0084 

085D 







0085 

085D 

- 






0086 

085D 


**************************************** 

0087 

085D 


* 




* 

0088 

085D 


* 

SWNUM - 

WRITE NUMBER TO SCREEN 

* 

0089 

085D 


* 



- 

* 

0090 

085D 

- 

* 

inputs: 


* 

0091 

085D 


* 


MIL 

- NUMBER TO WRITE 

* 

0092 

085D 


* 




* 

0093 

085D 


**************************************** 

0094 

08SD 


* 



- 


0095 

0850 


SWNUM 

START 


0096 

0850 







0097 

085D 

A908 



LDA 

#>MSG1 


0098 

0B5F 

A266 



LDX 

#<MSG1 


0099 

0861 

A00C 



LDY 

#MSG2— MSG1 


0100 

0863 

207409 



JSR 

SRITE2 

. % 


0101 

0866 







0102 

0866 

C3C1CC 

MSG1 

DC 

C” CALLED SWNUM ' 


0103 

0872 


MSG2 

DS 

0 


0104 

0872 



• 

END 

• 


Local 

Symbol Table 

% 

c 


• 



MSG1 0866 MSG2 0872 


i 
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last block added. Although it would seem to work just as well to 

• • * 

write the lowest level subroutine first and debug them with driver 
routines (and this is commonly done for library subroutines), the 
experience of many programmers in many languages shows that 
the best way to approach the problem is almost always the other way 
around. First, the main program is written and debugged, then 
individual sections are added and debugged, working from the top 
level of design toward the lowest, or most detailed level. This 

describes the technique of lgja down design in a nutshell. 

% _ 

% 

At this point, you should stop to type in the program in Listing 
10. A. Add the library routines needed, and assemble and execute 
the program. If everything is working, the program should print 

A*B * CALLED SWNUM 

A/B = CALLED SWNUM 

• • • 

on the CRT. If if does not, carefully check your program against 
Listing 10. A to find the mistake. 

(zzz ) 

Back already? Well, the next step is to make SWNUM work. Using 
the library routines will actually make this a fairly easy job, but it will 
pay off to understand a little about the routines we will use. 

Two library routines will actually be called by our program. The 
first takes the hexadecimal number at Ml L and converts it to a string 
of Apple II print characters. The address of these characters is 
returned in the A and X registers, with the high byte being A. The 
second takes the address passed to it by the first routine and 
actually prints the number on the screen. Note that the second 
routine does not follow the number with a RETURN. If you want one 
(and in this program we do) you must finish with a call to CROUT. 
The reason for splitting up the subroutine in this way is that there 
may be an occasion when we want to convert a number into an 
ASCII character string, but do not want to print it on the CRT. In that 
case, we would only use the first subroutine. 
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The subroutine library uses basically the same method to 
convert from hexadecimal to decimal that we use when we do it by 
hand. First, it checks to see if the number is negative. (Remember, 
negative numbers have the highest bit set. This means the leftmost 
digit is 8 or larger.) If so, it places a in the output buffer and 
subtracts the number from 0 to get the positive representation. It 
then tries dividing the number by successively lower powers of ten, 
stopping after dividing by 1 . 

% 

Let's review with a simple example. If the input is $8001 , then 
our routine should produce the decimal equivalent, -32767. 


Hex 

String 

Action 

• 

• 

$8001 


the starting value 

$7FFF 

• 


since the number is negative, output a M - M 
and subtract the number from 0 to 
make it positive. 

$0ACF 

-3 

divide by 10,000. The result is 3, with a 
remainder of 2767 ($0ACF). 

$02FF 

-32 

divide by 1 ,000. The result is 2, with a 
remainder of 767 ($02FF). 

$0043 

-327 

divide by 100. The result is 7, with a 
remainder of 767 ($0043). 

$0007 

-3276 

divide by 10. The result is 6, with a 
remainder of 7. 

$0000 

-32767 

since the reminder must be less than 10, 
use it as the last digit. This is the same 
as the quotient when this remainer is 
divided by 1 . 


It must be obvious that the library routine SIWRT (Subroutine 
Integer WriTe), which actually converts the hexadecimal number to a 
string, must use the SDIVD subroutine to do some divisions. Since 
SDIVD and its support routine SSIGN are already in your program, 
SIWRT and SNOUT (Subroutine Number OUT) are all you need to 

add at this time. 
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ORCA/EZ 1-0 




• * • 


0001 

0800 

• 

- 

PRINTER ON 

* 


0002 

0800 


KEEP 

PROG10.B 

-OBJ 


0003 

0800 

**********************-IH^*************** 

0004 

0800 

* 



- 

* 

0005 

0800 

* LISTING 

10. B 


* 

0006 

0800 

* 

• 



* 

0007 

0800 

* THIS PROGRAM TAKES TWO NUMBERS, 

* 

0008 

0800 

* MULTIPLIES THEM TOGETHER, AND THEN 

* 

000? 

0600 

* DIVIDES 

THEM. THE RESULTS ARE 

# 

0010 

0800 

* WRITTEN 

TO THE CRT. 

* 

0011 

0800 

# 




* 

0012 

0800 

* inputs: 



* 

0013 

0800 

* 

MUM1 

- FIRST 

NUMBER 

* 

0014 

0600 

* 

NUM2 

- SECOND 

NUMBER 

* 

0015 

0800 

* 




* 

0016 

0800 

* outputs: 


* 9 

* 

0017 

0800 

* 

MESSAGES WITH 

RESULTS 

* 

0018 

0800 

* 




* 

0019 

0800 

* notes: 



* 

0020 

0800 

* 

1) USES SDIVD 

, SMULT, SRITE. 

* 

0021 

0800 

* 


AND SWNUM 

* 

0022 

0800 

* 




-X- 

0023 

0800 

*****Hf*#**************************** # * # * 

0024 

0800 

* 





0025 

0800 

MATH 

START 



0026 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0027 

0800 

R1 

GEQU 

$1 

REGISTERS 


0028 

0800 

R2 

GEQU 

*2 

• 


0029 

0800 

R3 

GEQU 

$3 



0030 

0800 

R4 

GEQU 

*4 



0031 

0800 

R5 

GEQU 

$5 



0032 

0800 

R6 

GEQU 

$6 



0033 

0800 

R7 

GEQU 

$7 

• 


0034 

0800 

R8 

GEQU 

*8 



0035 

0800 

R9 

GEQU 

$9 


• 

0036 

0800 

R10 

GEQU 

$A 

• 


0037 

0800 

Rll 

GEQU 

SB 


• 

0038 

0800 

R12 

GEQU 

*C 


. 

0039 

0800 

R13 

GEQU 

*D 

• . 


0040 

0800 

R14 

GEQU 

*E 



0041 

0800 

R15 

GEQU 

*F 

• 


0042 

0800 

MIL 

GEQU 

$D0 

TWO BYTE INTEGER 

9 

0043 

0800 

M1H 

GEQU 

$Di 

MATH REGISTERS 


0044 

0800 

M2L 

GEQU 

*D2 

/ • 


0045 

0800 

M2H 

GEQU 

*D3 

9 • • 


0046 

0800 

M3L 

GEQU 

*D4 

* 


0047 

0800 

M3H 

GEQU 

*D5 

• m 


0048 

0800 

SIGN 

GEQU 

$D6 

9 


0049 

0800 

CHRAD 

GEQU 

*FE 

CHARACTER ADDRESS 


0050 

0800 

1 

• 



(FOR SRITE) 


0051 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 


0052 

0800 

CROUT 

GEQU 

SFDBE 

DO A RETURN 


0053 

0800 

• 

* 


- 


0054 

0800 

5 MULTIPLY 

THE NUMBERS AND WRITE THE 


0055 

0800 

; ANSWER 

• 



0056 

0800 

5 





0057 

0800 AD5908 

; 

LDA 

NUM1 

LOAD NUM1 


0058 

0803 8500 


STA 

MIL 

’ 




0059 

0805 

AD5A08 


LDA 

NUM1+1 

* * 

0060 

0808 

85D1 

- 

STA 

M1H 

- 

0061 

080A 

AD5B08 


LDA 

NUM2 

LOAD NUM2 

% 

0062 

0800 

85D4 


STA 

M3L 

s 

0063 

080F 

AD5C08 

- 

LDA 

NUM2+1 


0064 

0812 

85D5 


STA 

M3H 

• 

0065 

0814 

20800A 


JSR 

SMULT 

MULTIPLY NUMBERS 

0066 

0817 

A908 

' 

LDA 

#>MSG1 

WRITE THE ANSWER 

0067 

0819 

A24D 

' 

LDX 

#<MSG1 

• • 

0068 

081B 

A006 

• 

LDY 

#MSG2-MSG 1 

0069 

081D 

20100B 


JSR 

SRITE2 


0070 

0820 

206E08 


JSR 

SWNUM 

* • 

0071 

0823 

208EFD 


JSR 

CROUT 

• 

0072 

0826 

• 

• 

f 



% 

0073 

0826 

• 

; DIVIDE THE NUMBERS AND WRITE THE 

0074 

0826 

% m 

; ANSWER 


• 

0075 

0826 

• 

9 


- 

• 

0076 

0826 

AD5908 


LDA 

NUM1 

LOAD NUM1 

0077 

% 

0829 

85D0 


STA 

MIL 

• 

0078 

082B 

AD5A08 


LDA 

NUM1+1 

. 

0079 

0B2E 

8501 


STA 

M1H 


0080 

0830 

AD5B08 


LDA 

NUM2 

LOAD NUM2 

00B1 

0B33 

85D4 


STA 

M3L 

* 

0082 

0835 

AD5C08 


LDA 

NUM2+1 


0083 

0838 

8SDS 


STA 

M3H 


0084 

0B3A 

209809 

• 

JSR 

SDIVD 

DIVIDE NUMBERS 

0085 

083D 

• 

A908 


LDA 

#>MSG2 

WRITE THE ANSWER 

0086 

083F 

A253 


LDX 

#<MSG2 


0087 

0841 

A006 


LDY 

#MSG3— MSG2 

0088 

0843 

20 1 00B 


JSR 

SRITE2 

• 

0089 

0846 

206E08 


JSR 

SWNUM 

• 

0090 

0849 

208EFD 


JSR 

CROUT 


0091 

084C 

60 


RTS 


• 

0092 

084D 


! 




0093 

084D 


; LOCAL DATA AREAS 

• % 

0094 

084D 


5 

• 


a 

0095 

084D 

C1AAC2 

MSG1 

DC 

C’A*B = 

P 

0096 

0853 

C1AFC2 

MSG2 

DC 

C’A/B = 

P 

0097 

0859 


MSG3 

DS 

0 


0098 

0859 

0A00 

NUM1 

DC 

I” 10' 


0099 

085B 

0300 

NUM2 

DC 

I -3' 

* 

0100 

085D 



END 


• 


Local Symbol Table 

MSG1 084D MSG2 0853 MSG3 0859 NUM1 0859 

NUM2 085B 
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0101 

085D 



■ 





0102 

085D 

s m 






- 

0103 

085D 

- 

- 






0104 

0850 





- 



0105 

0850 

• 







0106 

085D 


************************************************ 


0107 

085D 


* 




* 

" - -« 

0108 

0850 


* SNOUT - 

NUMBER OUTPUT TO CRT 

* 


0109 

085D 


* 




* 


0110 

085D 

• 

* inputs: 


% 

* 


0111 

0850 


* 

Y-A 

- ADDRESS 

OF STRING TO 

* 


0112 

085D 


* 


WRITE 


* 

— 

0113 

0850 


# 




* 


0114 

0850 


* notes: 



* 

• 

0115 

085D 


* 

1) THE STRING 

MUST END WITH A 

* 

• 

0116 

085D 


* 


$00 


* 


0117 

085D 


* 




* 


0118 

085D 


*********************#*-**-* •**•*■*#*■**■***#.*.* 


0119 

085D 

• 

« 






0120 

0850 


snout 

START 




0121 

085D 


COUT 

EQU 

OFDED 

CHARACTER OUTPUT 



0122 

085D 








0123 

0850 

8500 


STA 

R0 

SAVE THE ADDRESS 



0124 

085F 

8401 


STY 

R1 




0125 

0861 

A000 


LDY 

#0 

OUTPUT THE 

% 


0126 

0863 

B100 

NT1 

LDA 

(R0) , Y 

CHARACTERS 


— • 

0127 

0865 

F006 


BEQ 

NT2 




0128 

0867 

20EDFD 


JSR 

COUT 




0129 

086A 

C8 


I NY 

• 




0130 

086B 

D0F6 


BNE 

NTl 




0131 

0860 

60 

NT2 

RTS 




— 

0132 

0B6E 



END 






Local 

Symbol Table 




COUT 

FDED NTl 

0863 NT2 

086D 



0133 

086E 


• 

♦ 


0134 

- 086E 





0135 

086E 





0136 

086E 

****^******************************.***** 


0137 

086E 

* 

• 

* 


0138 

086E 

# 

SWNUM - WRITE NUMBER TO SCREEN 

* 


0139 

086E 

* 

• 

* 


0140 

086E 

* 

INPUTS: 

* 


0141 

086E 

* 

MIL - NUMBER TO WRITE 

* 


0142 

086E 

* 


* 


0143 

086E 

* 

notes: 

* 


0144 

086E 

* 

1) USES SIWRT AND SNOUT 

* 


0145 

086E 

* 


* 


0146 

086E 

**************************************** 

• 

0147 

086E 

* 

. 



0148 

086E 

SWNUM START 



0149 

086E 


. 



0150 

086E 20F008 


JSR SIWRT CONVERT THE NUMBER 

» 

• 


0151 

0871 

1 

• 

TO A STRING 

* 


0152 

0871 205D08 


JSR SNOUT WRITE THE STRING 



0153 

0874 60 


RTS 

% 


0154 

0875 

- 

END 





To get the program we have written to write the answers to the 
screen, we simply need to replace the output subroutine SWNUM 
with the one in listing 10.B, and add the new library routines. There 
is one new twist, though. All of the subroutines cannot be loaded 
into the editor at one time, so your program will have to be in two 
different files. Let's assume that the first is called MYFILE, and the 
second MYFILE2. Then you tell the assembler about the second 
file with the append directive, which must be the very last line in 
MYFILE. If MYFILE2 is on volume 100, the directive will look like: 

APPEND MYFILE2, VI 00 

• * 

After you make the changes, run the program. 

PROBLEMS 

10.1. Try different inputs to determine exactly how SIWRT formats a 
number. For example, does it print -34 or -00034? Does it handle 
internal zeros properly, like in the number 10203? An interesting 
special case is -32768 ($8000), since there is no positive 
equivalent. Is it printed correctly? 

% 

10.2. Modify the program so that it also does addition and 
subtraction, and prints the results in a way similar to that of 
multiplication and division. To do this, write two new subroutines, 
SADD2 and SSUB2 that use the same input and output as SDIVD 

and SMULT. See Listing 1 0.2 in Appendix A for a solution. 

• •* 

10.3. Try using input numbers that you know should give errors, 
like 2/0 and 1 0,000*1 0,000. What happens? The comment block 
for multiply and divide tell you that the overflow flag is set if an error 
occurred. Use this information to add an error message whenever 
an error occurs. To do this, you will need a new branching 
instruction, BVS (Branch on overflow Set). Note that for signed 
addition and subtraction, the overflow is set if an overflow occurs, 
and cleared otherwise. For example, 30,000+30,000 would leave 
the overflow flag set, since the result of 60,000 cannot be 
represented as a two byte signed number. The overflow flag does 
not have any meaning in addition and subtraction if you are doing 
unsigned arithmetic. In that case, you detect overflow errors by the 
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status of the carry flag after the operation has been performed. See 
Listing 1 0.3 in Appendix A for our solution. 

10.4. Use the information in the comment block of the SDIVD 
subroutine to implement SMOD2, a modulo, or remainder, function. 
The result is the remainder from the division, rather than the answer 
itself. For example, 4 MOD 3 = 1. Install this operation into your 
program as a new subroutine, SMOD2. Our routine is in Listing 
10.4 in Appendix A. 
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Writing Hexadecimal Numbers 

* 

(Sweet 1 6) 

The eventual goal of all of the programs we have written in this 
book is to write a decimal/hexadecimal calculator. In that vein, we 
should digress or a moment to take a look at hexadecimal output. 
Although it is much simpler than decimal output, we will actually write 
a little more code to get the job done, since the ORCA/EZ 
subroutine library does not come with a routine to write hexadecimal 
format numbers. 

To help us do the job, we will use the Apple Monitor ROM's 
subroutine PRAX (PRint A and X). This routine uses the A register 
as the high byte and the X register as the low byte of a two byte 
hexadecimal number, and writes the four digit result to the CRT. As 
with our last number output routine, the characters are not followed 
by a RETURN, so we must use a call to CROUT if we want one. Also, 
in keeping with the normal convention, we will start by writing a ”$" 
to the screen. The program from the last section, modified to do 
hexadecimal output instead of decimal output, is shown below in 
Listing 10.C. 

PROBLEMS 

10.5. Write a new version of SWNUM that calls two subroutines, 
SWHEX and SWDEC to write the output number as both a decimal 
and a hexadecimal number. Use punctuation to match this sample 
output: 

A*B = 45 ($002D) 

See Listing 10.5 in Appendix A if you need help. 




0159 087B 


*ORCA/EZ 1 i 


* 


0001 

0800 


PRINTER ON 


" 

0002 

0800 


KEEP 

PROG10.C. 

OBJ 


0003 

0800 

*********** ************** ** ft-******-*-***#* 

0004 

0800 

* 




* 

0005 

0800 

* LISTING 10. C 

s 

* 

0006 

0800 

* 



• 

* 

0007 

0800 

* THIS PROGRAM TAKES 

i TWO NUMBERS, 

* 

0008 

0800 

* MULTIPLIES THEM TOGETHER, AND THEN 

* 

0009 

0800 

* DIVIDES THEM. THE RESULTS ARE 

9 

* 

0010 

0800 

* WRITTEN TO THE CRT AS HEX STRINGS. 

* 

0011 

0800 

* 


• 

• 

* 

0012 

0800 

* inputs: 


• • • 

* 

0013 

0800 

* 

NUM1 

- FIRST NUMBER 

* 

0014 

0800 

* 

NUM2 

- SECOND 

NUMBER 

* 

0015 

0800 

* 




* 

0016 

0800 

* outputs : 



9 

* 

0017 

0800 

* 

• 

MESSAGES WITH 

RESULTS 

* 

0018 

0800 

* 



4 

* 

0019 

0800 

* notes: 


4 

* 

0020 

0800 

* 

1) USES SDIVD. 

SMULT, SRITE, 

* 

0021 

0800 ' 

* 


AND SWNUM 

* 

0022 

0800 

* 



• 

* 

0023 

% 

0800 

**************************************** 

0024 

0800 

* 





0025 

0800 

MATH 

START 



0026 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0027 

0800 

R1 

GEQU 

*1 

REGISTERS 


0028 

0800 

R2 

GEQU 

*2 



0029 

0800 

R3 

GEQU 

*3 



0030 

0800 

R4 

GEQU 

*4 

. 

• 

0031 

0800 

R5 

GEQU 

♦5 



0032 

0800 

R6 

GEQU 

$6 



0033 

0800 

R7 

GEQU 

$7 

• 


0034 

0800 

R8 

GEQU 

*8 



0035 

0800 

R9 

GEQU 

*9 

• 


0036 

0800 

R10 

GEQU 

*A 


• 

0037 

0800 

Rll 

GEQU 

$B 



0038 

0800 

R12 

GEQU 

$C 



0039 

0800 

R13 

GEQU 

*D 



0040 

0800 

R14 

GEQU 

*E 



0041 

0800 

R15 

GEQU 

*F 



0042 

0800 

MIL 

GEQU 

$D0 

TWO BYTE. INTEGER 


0043 

0800 

M1H 

GEQU 

SD1 

MATH REGISTERS 


0044 

0800 

M2L 

GEQU 

SD2 

• 


0045 

0800 

M2H 

GEQU 

*D3 



0046 

0800 

M3L 

GEQU 

*D4 

• 


0047 

0800 

M3H 

GEQU 

$D5 



0048 

0800 

SIGN 

GEQU 

«D6 

. 

* 

0049 

0800 

CHRAD 

GEQU 

*FE 

CHARACTER ADDRESS 


0050 

0800 

i 

• 



(FOR SRITE) 

* 

0051 

0800 

PRAX 

GEQU 

$F941 

WRITE A— X AS HEX 

4 

0052 

0800 

HOME 

• • 

GEQU 

SFC58 

CLEAR THE SCREEN 


0053 

0800 

COUT 

GEQU 

$FDED 

OUTPUT A CHARTACTER 

0054 

0800 

CROUT 

GEQU 

*FD8E 

DO A RETURN 


0055 

0800 

■ 

9 



9 


0056 

0800 

5 MULTIPLY 

* • 

THE NUMBERS AND WRITE THE 


0057 

0800 

; ANSWER 



• * 

0058 

0800 

1 ‘ 


- 

- 




0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 


0800 AD5908 
0803 85D0 
0805 AD5A08 
0808 85D1 
080A AD5B08 
0800 8504 
080F AD5C08 


0812 



0814 20750 A 


0817 A908 

0819 A24D 
08 IB A006 
0810 20050B 

0820 205008 
0823 208EFD 
0826 

0826 

0826 


LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

LOA 

LDX 

LDV 

JSR 

JSR 

JSR 


NUM1 LOAD NUM1 

MIL 

NUM1+1 

M1H 

NUM2 LOAD NUM2 

M3L 

NUM2+1 

M3H 

SMULT MULT I PLY NUMBERS 

#>MSG1 WRITE THE ANSWER 

#< MSG 1 

#MSG2-MSG1 

SR I TE2 

SWNUM 

CROUT 


DIVIDE THE NUMBERS AND WRITE THE 
ANSWER 


0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 


0826 

0826 

0829 

082B 


0830 


AD5908 

85D0 

AD5A08 

B5D1 

AD5B08 

8504 

AD5C08 


0838 

083A 

083D 

083F 

0841 

0843 

0846 

0849 

084C 

084D 

084D 


208D09 

A908 

A253 

A006 

20050B 

205D08 

208EFD 

60 


LDA 

NUM1 

LOAD NUM1 

STA 

MIL 


LDA 

NUM1+1 


STA 

M1H 


LDA 

NUM2 

LOAD NUM2 . 

STA 

M3L 


LDA 

NUM2+1 


STA 

M3H 


JSR 

SDIVD 

DIVIDE NUMBERS 

LDA 

# >MSG2 

WRITE THE ANSWER 

LDX 

#<MSG2 


LDY 

#MSG3— MSG2 

JSR 

SRITE2 

* 

JSR 

SWNUM 


JSR 

RTS 

CROUT 

• • 


LOCAL DATA AREAS 


0096 

084D 


• 

> 



0097 

0S4D 

C1AAC2 

MSG1 

DC 

C”A*B 

0098 

0853 

C1AFC2 

MSG2 

DC 

C’A/B 

0099 

0859 


MSG3 

DS 

0 

0100 

0859 

0A00 

NUM1 

DC 

I' 10' 

0101 

085B 

0300 

NUM2 

DC 

1*3* 

0102 

0850 

A 


END 


Local 

s 

Symbol Table 




MSG1 


084D MSG2 

0853 

MSG3 

NUM2 


085B 





9 

9 


0859 NUM1 


0859 



0103 

085D 






0104 

085D 



- 


- 

0105 

085D 



- 



0106 

* 

085D 

% 

******#***#*■*■#*#**■#•****#*****#******#■■*#■* 


0107 

0B5D 


* 


* 


0103 

085D 


* SWNUM - 

WRITE NUMBER TO SCREEN 

* 


0109 

085D 


* 


* 


0110 

085D 


* INPUTS: 


* 


0111 

085D 

• 

* MIL 

- NUMBER TO WRITE 

* 


0112 

085D 


* 


* 


0113 

085D 


******^******************************** 

• 

0114 

085D 


* 

- 

w 

% 

— 

0115 

085D 

• . 

SWNUM START 

• 


0116 

085D 





• 

0117 

085D 

A9A4 

LDA 




0118 

0B5F 

20EDFD 

JSR 

COUT 

% 


0119 

0862 

A5D1 

LDA 

M1H 


% 

0120 

0864 

A6D0 

LDX 

MIL 

• 


0121 

0866 

204 1F9 

JSR 

PRAX 


\ 

% 

0122 

0869 

60 

RTS 

• • ^ 

• 

4 

0123 

086A 

• 

END 







Reading Decimal Numbers 

(Palm Reading, Revisited) 

m W 


The session winds up by changing the original program to 
read NUM1 and NUM2 from the keyboard, rather than having the 
numbers hard coded in the program itself. This is largely done with 
the help of the library routine SREDI (Subroutine REaD Integer). 

0 

Like the number output routine, number input is 
accomplished using a fairly straightforward method. As each digit is 
read in, the current number is first multiplied by ten, then added to 
the value of the new digit. The process is reviewed below for the 
string -32767, the same number used in our first example. 


Characters 


Hex 

Read 

Action 

$0000 


As we start, the hex number is initialized to 
0. No characters have been read. 

$0000 

r 

The sign is read, and since we cannot use 
it yet, we simply remember it. 

$0003 

-3 

The old number (0) is multiplied by 1 0, and 
the value of the new digit is added in to 
give a total of 3. 

$0020 

-32 

• 

The old number is multiplied by 1 0, giving 
30 ($1E). The value of the new digit is 
added to give the current result of 32 
($20). 

$0147 

-327 

The old number is multiplied by 1 0, giving 
320 ($140). The value of the new digit 
is added to give the current result of 
327 ($147). 

$0CCC 

-3276 

The old number is multiplied by 1 0, giving 
3270 ($CC6). The value of the new 
digit is added to give the current result 
of 3276 ($CCC). 


■ 
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$7FFF -32767 The old number is multiplied by 10, giving 

32760 ($7FF8). The value of the new 
digit is added to give the final positive 
number 32767 ($7FFF). 

$8001 -32767 Taking the negative sign into account, the 

above result is subtracted from 0 to 

give -32767 ($8001). 

Listing 10.D is the modified version of our program. Be sure 
to include all of the library subroutines that are needed, then 
assemble and run the program. Since there is no way to stop the 

program, simply hit the RESET key when you are finished. It should 

• • • 

be a lot easier now to experiment with the math routines, and you 
should spend some time getting familiar with their strengths and 
weaknesses. 


PROBLEMS: 

6) Modify the program so that if both input numbers are zero, it will 
return to the operating system. Listing 10.6 in Appendix A shows 
our routine. 

7) Update the program to include all of the changes suggested in 
problems 2 to 5. See Listing 10.7 in Appendix A for the complete 
program. 
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0336 

* • 

* 

0946 48 

4 

PHAQRCA/EZ 1. 

0 

* 

0001 

0800 

- 

PRINTER ON 



0002 

0800 


KEEP 

PROG10.D 

.OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 




* 

0005 

0800 

* LISTING 10. D 


* 

0006 

0800 

* 




* 

0007 

0800 

* THIS PROGRAM TAKES TWO NUMBERS, 

* 

0008 

0800 

* MULTIPLIES THEM TOGETHER, AND THEN 

* 

0009 

0800 

* DIVIDES THEM. THE RESULTS ARE 

* 

0010 

0800 

* WRITTEN TO THE CRT. AS-HSX STRINGS, 

* 

0011 

0800 

* 



• 

* 

0012 

0800 

* inputs: 



* 

0013 

0800 

* 

NUM1 

- FIRST 

NUMBER 

* 

0014 

0800 

* 

NUM2 

- SECOND 

NUMBER 

4 

* 

_ 0015 

0800 

* 

• 



* 

0016 

0800 

* outputs: 



* 

0017 

0800 

* 

MESSAGES WITH 

RESULTS 

* 

0018 

0800 

* 




* 

0019 

0800 

* notes: 



* 

0020 

0800 

* 

1) USES SDIVD 

, SMULT, SREDI, 

* 

0021 

0800 

* 


SRITE, 

AND SWNUM 

* 

0022 

0800 

* 




* 

0023 

0800 

**************************************** 

0024 

0800 

* 





— 0025 

0800 

MATH 

START 



0026 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0027 

0800 

R1 

GEQU 

$1 

REGISTERS 


0028 

0800 

R2 

GEQU 

*2 



0029 

0800 

R3 

GEQU 

*3 



~ 0030 

0800 

R4 

GEQU 

$4 

• 


0031 

0800 

R5 

GEQU 

*5 



0032 

0800 

R6 

GEQU 

$6 

- 


0033 

0800 

R7 

GEQU 

$7 

♦ 


0034 

0800 

. R8 

• • 

GEQU 

*8 


• 

0035 

0800 

R9 

GEQU 

$9 



0036 

0800 

R10 

GEQU 

«A 



0037 

0800 

RU 

GEQU 

$B 



0038 

0800 

R12 

GEQU 

$C 

• 


_ 0039 

0600 

R13 

GEQU 

«D 



0040 

0800 

R14 

GEQU 

*E 

• 

* 

0041 

0800 

R15 

GEQU 

*F 



0042 

0800 

MIL 

GEQU 

$D0 

TWO BYTE INTEGER 


0043 

0800 

M1H 

GEQU 

$D1 

MATH REGISTERS 


— 0044 

0800 

M2L 

GEQU 

«D2 

. 


0045 

0800 

M2H 

GEQU 

*D3 



0046 

0800 

M3L 

GEQU 

*D4 

• 


0047 

* 

0800 

M3H 

GEQU 

*D5 



0048 

0800 

SIGN 

GEQU 

«D6 



• — . 0049 

0800 

CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 


0050 

.0800 

i 

• 



(FOR SRITE) 


0051 

0800 

LINE 

GEQU 

$200 

INPUT BUFFER 


0052 

0800 

PR AX 

GEQU 

$F941 

WRITE A-X AS HEX 


0053 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 


0054 

0800 

GETLN1 

GEQU 

$FD6F 

READ WITH NO PROMPT 

0055 

0800 

COUT 

GEQU 

*FDED 

OUTPUT A CHART ACTER 

0056 

0800 

CROUT 

GEQU 

$FD8E 

DO A RETURN 


0057 

0800 

; 



* 


__ 0058 

* 

* 

• * A 

0800 

* 

4 

* 

5 READ THE 

NUMBERS 

* • 

FROM THE KEYBOARD 

* 

j 

* 

4 

• 4 



0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

01 16 

0117 

0118 


0800 
0800 
0803 
0805 
0807 
0809 
080C 
080F 
0811 
0813 
0815 
0817 
081 A 
08 1C 
08 IF 
0821 
0824 
0824 
0826 
0828 
082A 
082D 
0830 


2058FC 

A908 

A2A3 

A00F 

20780B 

206FFD 

A902 

8501 

A900 

8500 

207E0A 

A5D0 

SDC108 

A5D1 

8DC208 

A908 


TOP 


0834 

0836 

0838 

0S3B 

083D 

0840 

0842 

0845 

0845 

0845 

0845 

0845 

0848 

084A 

0S4D 

084F 

0852 

0854 


0859 

085C 


0860 

0862 

0865 

0868 

086B 

086B 

086B 

086B 

086B 

086E 

0870 

0873 

0875 

0878 


A00F 

20780B 

206FFD 

A902 

8501 

A900 

8500 

207E0A 

A5D0 

8DC308 

A5D1 

8DC408 


ADC 108 

85D0 

ADC208 

85D1 

ADC308 

85D4 

ADC408 


20E80A 

A908 

A297 

A006 

20780B 

20D608 

208EFD 


ADC 108 

85D0 

ADC208 

85D1 

ADC308 

B5D4 


9 

9 

5 

5 


9 

m 

9 

m 

9 

m 

9 


JSR 

HOME 

CLEAR THE SCREEN 

LDA 

#>MSS3 

WRITE THE PROMPT 

LDX 

#<MSG3 


LDY 

#MSG4-MSG3 

JSR 

SRITE2 


JSR 

GETLN1 


LDA 

# >L I NE 

CONVERT THE STRING 

STA 

R1 


LDA 

♦KLINE 


STA 

R0 


JSR 

SREDI 


LDA 

MIL 

SAVE THE RESULT 

STA 

NUM1 


LDA 

M1H 


STA 

NUM1+1 


LDA 

#>MSG4 

WRITE THE PROMPT 

LDX 

#<MSB4 


LDY 

#MSG5— MSG4 

JSR 

SRITE2 


JSR 

GETLN1 


LDA 

#>LINE 

CONVERT THE STRING 

STA 

R1 


LDA 

#<LINE 


STA 

R0 

V 

JSR 

SREDI 

• 

LDA 

MIL 

SAVE THE RESULT 

STA 

NUM2 


. LDA 

M1H 


STA 

NUM2+1 

- 

MULTIPLY 

THE NUMBERS AND WRITE THE 

ANSWER 



LDA 

NUM1 

LOAD NUM1 

STA 

MIL 


LDA 

NUM1+1 


STA 

M1H 

• 

LDA 

NUM2 

LOAD NUM2 

STA 

M3L 


LDA 

NUM2+1 


STA 

M3H 


JSR 

SMULT 

MULTIPLY NUMBERS 

LDA 

#>MSG1 

WRITE THE ANSWER 

LDX 

#<MSG1 

* 

LDY 

#MSG2-MSG1 

JSR 

SRITE2 


JSR 

SWNUM 

- 

JSR 

CROUT 

• 

DIVIDE THE NUMBERS AND WRITE THE 

ANSWER 



LDA 

NUM1 

LOAD NUM1 

STA 

MIL 

. 

LDA 

NUM 1+1 

* 

STA 

M1H 

' 

LDA 

NUM2 

LOAD NUM2 

STA 

M3L 




0119 

087A 

ADC408 


LDA 

NUM2+1 

% 

0120 

087D 

85D5 


STA 

M3H 

•• 

0121 

087F 

20000A 


JSR 

SDIVD 

DIVIDE NUMBERS 

0122 

0882 

A908 


LDA 

# >MSG2 

WRITE THE ANSWER 

0123 

0884 

A29D 


LDX 

#<MSG2 

' 

0124 

0886 

A006 


LDY 

#MSG3-MSG2 

0125 

0888 

20780B 


JSR 

SRITE2 

v 

0126 

088B 

20D608 

* 

JSR 

SWNUM 


0127 

088E 

208EFD 

- 

JSR 

• 

CROUT 

• 

0128 

0129 

0891 

0894 

208EFD 

4C0308 

• 

JSR 

JMP 

CROUT 

TOP 


0130 

0897 


■ 

J 


• 


0131 

0897 

- 

5 LOCAL DATA AREAS 


0132 

0897 

■ 

5 




0133 

0897 

C1AAC2 

MSGl 

DC 

C’A*B = 

p 

• 

0134 

089D 

C1AFC2 

MSG2 

DC 

C’A/B * 

p 

0135 

08A3 

C6C9D2 

MSG3 

DC 

C' FIRST 

NUMBER : ’ 

0136 

08B2 

D3C5C3 

MSG4 

DC 

C’ SECOND NUMBER: ' 

0137 

08C1 


MSG5 

DS 

0 

i 

0138 

08C1 

0000 

NUM1 

DC 

1*0' 

• 

0139 

08C3 

0000 

NUM2 

DC 

I ? 0' 

• 

0140 

08C5 



END 

• 

• 



Local Symbol Table 


MSG1 0897 MSG2 

MSGS 08C1 NUM1 


089D 


08C1 


MSG3 

NUM2 


08A3 

08C3 


MSG4 

TOP 


08B2 

0803 




NOTE: SNOUT and SWNUM as in 10.B 



Session Ten Summary 

* • • 

Apple Monitor Commands 

% • 

% • 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program) 

read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC 

- 

add with carry 

BCC 

- 

branch on carry clear 

BCS 

- 

branch on carry set 

BNE 

- 

branch not equal 

BRK 

- 

break 

BVS 

- 

branch on overflow set 

CLC 

- 

clear carry 

DEC 

- 

decrement 

DEX 

- 

decrement X 

DEY 

- 

decrement Y 

JSR 

- 

jump to subroutine 

INC 

- 

increment 

INX 

- 

increment X 

INY 

- 

increment Y 

LDA 

- 

load A 

LDX 

- 

loadX 

LDY 

- 

load Y 

PHA 

- 

push A 

PHP 

- 

push P 

PLA 

- 

pull A 

PLP 

- 

pull P 

RTS 

* 

return to subroutine 

SBC 

- 

subtract with carry 

SEC 

- 

set carry 

STA 

- 

sto re A 

STX 

- 

store X 

STY 

• 

store Y 
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* 

TAX - 

transfer A to 

TAY - 

transfer A to 

TSX - 

transfer S to 

TXA - 

transfer X to 

TXS - 

transfer X to 

TYA - 

transfer Y to 


X 

Y 

X 

A 

S 

A 




Addressing Modes 


absolute 

immediate 

implied 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 


APPEND 

comments 

DC 

DS 

END 

ENTRY 

EQU 

GEQU 

KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
V - overflow flag 
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SESSION ELEVEN 


More Instructions 
(More Than You'll Ever Need...) 


Shifts and Rolls 

(Hey Coach - Where's the Playbook?) 


We've come to the point where we need to write a hex input 
routine to read hex numbers. To accomplish this marvelous feat, we 
need a few more tools - a variety of operations collectively known as 
shifts and rolls. These operations will move the bits within a byte to 
do wonderful, magical (or at least useful) things for us. Before we try 
to explain them, though, we need to draw a few pictures to help us 
visualize the goings-on in the CPU. You'll find some scratch paper a 
useful addition to your work area for this session - maybe the backs 
of those printouts of programs that almost worked? You'll need to 
keep track of the A register (or memory) and the carry flag initially, so 
start with one eight-bit byte and a single bit (for the carry flag). 

CARRY FLAG A REGISTER/MEMORY 

□ 

ASL (Arithmetic Shift Left) 

An Arithmetic Shift Left instruction (ASL) does exactly what its 
name implies - each bit in the byte is moved one place to the left, 
and a 0 is placed in the empty rightmost bit. The original, leftmost bit 
(which is pushed out of the byte in the process) is placed into the 
carry flag. The bit which was in the carry flag is lost to the bit bucket: 
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ORIGINAL: 


□ 

CARRY FLAG 
AFTER ASL: 

CARRY FUG 




A REGISTER/MEMORY 



A REGISTER/MEMORY 


Look at these two values carefully. The original number, 
0000001 1 , is equivalent to the decimal value, 3. The value after the 
ASL is 00000110, or decimal 6. We have just succeeded in 
multiplying a one-byte number by two!! (and it didn't even hurt). Is 
this always true? Consider the following examples: 


CARRY FUG A REGISTER/MEMORY 


ORIGINAL: 

0 

001 01 1 00 

(44) 

AFTER ASL: 

0 

01011000 

(88) 

ORIGINAL: 

1 

00011110 

(30) 

AFTER ASL: 

0 

00111100 

(60) 

ORIGINAL: 

0 

00110011 

(51) 

AFTER ASL: 

0 

01100110 

(102) 

ORIGINAL: 

• 

1 

00111100 

• 

(60) 

AFTER ASL: 

0 

01111000 

(120) 

ORIGINAL: 

0 

10101010 

(170) 

AFTER ASL: 

1 

01010100 

(84) 

The only problem is when an overflow occurs. 

In that case, the 

carry 


flag is set - in all others, it was cleared. If the result of the ASL is 
zero, the zero flag is set (Z=1); otherwise Z=0. If the result is 
negative (that is, bit seven is set), the minus flag is set (N=1); 
otherwise, N=0. 
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ROL (ROII Left) 


If we'd like to extend our ability to multiply by two, so that we 
can multiply two-byte numbers by two, we’ll need another new 
instruction. ROII Left (ROL) is very similar to ASL, except that the bit 
in the carry flag is moved into the empty rightmost bit, and the 
leftmost bit goes into the carry flag. ROL is also sometimes known 
as Rotate Left, rather than ROII Left (just in case you've been 
reading a book which uses that designation). 

ORIGINAL: 


CARRY FLAG A REGISTER/MEMORY 

AFTER ROL: 

CARRY FUG A REGISTER/MEMORY 

Nothing is lost to the bit bucket. Look at these examples of ROL 
and trace the movement of the bits: 




CARRY FUG 


A REGISTER/MEMORY 


ORIGINAL: 

0 

10101100 

AFTER ROL: 

1 

01011000 

ORIGINAL: 

1 

00011110 

AFTER ROL: 

0 

00111101 

ORIGINAL: 

0 

11110011 

AFTER ROL: 

1 

11100110 

ORIGINAL: 

1 

00111100 

AFTER ROL: 

0 

01111001 

ORIGINAL: 

0 

10101010 

AFTER ROL: 

1 

01010100 
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If the result of the ROL is zero, the zero flag is set; otherwise the 
zero flag = 0. If the result of ROL is negative (that is, if the high bit, 
or bit seven is set, the minus flag is set; otherwise, N=0. 

9 

S • 

We'll now combine these two new instructions to multiply a 
two-byte number by two. (Remember that the least significant byte 
is stored first.) 

ASL NUM1 
ROL NUM1+1 

Carefully follow the movement of the bits: 

CARRY FLAG NUM1 NUM1+1 VALUES 
ORIGINAL: 0 10011001 00110110 13977 

AFTER ASL: 1 00110010 00110110 13874 

AFTER ROL: 0 00110010 01101101 27954 

To multiply by powers of 2, merely use repeated sets of ASL, ROL 
(the number of sets equals the power of two). Be sure to check the 
carry flag for overflows, or make sure it matches the most significant 
bit of the answer if you are using signed numbers. Also note that 
we have been assuming that our numbers were positive! The 
overflow condition is different for negative numbers. There, an 

overflow occurs if there was a sign change. 

# 

LSR (Logical Shift Right) 

• s 

• | 

Logical Shift Right works exactly like ASL, except that bits are 
moved to the right. The rightmost bit goes into the carry flag, and 
the empty leftmost bit is filled with a 0. The bit which was in the carry 
flag is lost to the bit bucket. LSR accomplishes a one-byte division 
by two (but you must be careful of negative numbers): 

s m m 

CARRY FLAG A REGISTER/MEMORY 


ORIGINAL: 
AFTER LSR: 


0 

0 


00101100 

00010110 


(44) 

( 22 ) 



ORIGINAL: 

1 

00011110 

(30) 

AFTER LSR: 

0 

00001 1 1 1 

(15) 

ORIGINAL: 

1 

00111100 

(60) 

AFTER LSR: 

0 

00011110 

(30) 

ORIGINAL: 

0 

• • 

00110011 

(51) 

AFTER LSR: 

* V 

0 

0001 1 001 

(25)' 

‘note the result of integer division of an 

odd number by 2 


ORIGINAL: 

1 

01111000 

(120) 

AFTER LSR: 

0 

00111100 

(60) 


We have, indeed, succeeded in dividing a one-byte number by 2. 
Note that as before, the zero and minus flags are affected by the 
results of this operation. This instruction can also be used to test 
the least significant bit, which is 1 if a number is odd, and 0 if it is 
even. 


ROR (ROil Right) 

Roll Right operates similarly to Roll Left, except that bits are 
moved to the right. The contents of the carry flag are placed into 
the empty leftmost bit, and the bit pushed out of the byte goes into 
the carry flag. Besides the obvious effect on the carry flag, this 
instruction also affects the zero and minus flags. Note that the value 
originally in the carry flag becomes the most significant bit. 

ORIGINAL: 


CARRY FLAG A REGISTER/MEMORY 

AFTER ROR: 


CARRY FLAG A REGISTER/MEMORY 
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Consider the following, and pay particular attention to the 
second line of code. This illustrates a new addressing mode which 
can be used with the four new instructions we've just described. 
We have said all along that these instructions could be used on 
memory or on the A register. To apply them to the A register, we 
use the accumulator addressing mode (see the second line of 
code). This is a special form of implied addressing -- all accumulator 
addressing modes use one byte of memory. This is why we said, so 
long ago, never to use "A" for a label - this avoids possible 
confusion of a label with the accumulator addressing mode. Some 
assemblers don't require the "A", but rather use an implied address 
if the accumulator is to be manipulated in this way. 


LDA 

NUM1+1 

ASL 

A 

ROR 

• 

NUM1+1 

ROR 

NUM1 


It is also important to avoid causing the assembler to think that the 
first word of a comment is a label (which could happen with implied 
addressing), and some assemblers deal with this by requiring a ; 
before a comment. This is not the case with ORCA. The 
accumulator addressing mode is explicitly stated, and no ; is 
required before the comment field. 

The example shown above does a signed division of a two 
byte number by 2. It will work for all cases except -1 ($FFFF), where 
it gives an answer of -1. To divide a two byte unsigned number by 
2, use 

LSR NUM1+1 

ROR NUM1 

which works for all cases. 

• m 6 • 

Another use of shifts and rolls is to move one nibble (half a 
byte, remember?) to another nibble. We'll get to that shortly, but its 
necessary at this point to take time out to look at several "logical” 
instructions ("logical" doesn't mean that these instructions will 
necessarily make more sense than others might, but rather that they 
deal with logic in the mathematical sense). 
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Logical Operations and Comparisons 

(Spock Here, Captain...) 


Before we can go any further, we need to take up the topic of 
truth tables. A truth table is just a chart, used to figure out whether 
two statements (each of which may be true or false), combined in 
particular ways, result in a statement that is true or in a statement that 
is false. To a math person, these are familiar tools, but even if you're 
not inclined too strongly toward things mathematical, you can easily 
learn to use truth tables to clarify the concepts we'll be dealing with 
here. We'll briefly look at three logical operators, AND, ORA, and 
EOR to see what they mean, and we'll look at a truth table for each. 


AND ( accumulator AND memory ) 

When we use the word “and" in the logical sense, we usually 
have an expression like, "statement one and statement two". This 
expression will be true if and only if both statement one and 
statement two are true. If either statement is false, or if both 
statements are false, the expression "statement one and statement 
two" is also false. The first truth table below illustrates this in a way 
easily understood by humans. The second truth table says the 
same thing, but in a way that the computer can understand: true is 
represented by 1, and false is represented by 0. The logical 
instruction for "AND" is, appropriately enough, AND. It does an 
AND on the bits in two different bytes (the accumulator and a byte in 
memory), and puts the answer in the accumulator. 


T F 10 





Here is an example of an AND instruction. 


ACCUMULATOR BEFORE AND: 10101010 

ACCUMULATOR AFTER AND #%1 11 10000: 10100000 

Note that the AND instruction can be used to turn off some bits, 
leaving others unaffected. The number used as the operand of the 
AND is called a "mask". For the bits we want to turn off, we use a 0, 
and for the bits we wish to leave alone, we use a 1. The AND 
instruction has compared the two values, bit by bit. In the result, a 1 
occurs only in those place values where both of the original 
numbers had a 1 (this corresponds to TRUE AND TRUE = TRUE): 

10101010 

10100000 


TFTFFFFF 


ORA ( memory OR Accumulator ) 

The second logical operator we’ll be using is OR. It, too, is used 
to join two statements (statement one or statement two), but now 
the expression is considered to be true if either one of the 
statements is true (or if both are true). Again, two truth tables are 
shown, one for humans, and the other with the digits that are used 
to represent truth or falsehood to the machine. The mnemonic for 
this operator is ORA, which indicates that the value in the 
Accumulator will be one of the statements, and a value from memory 
will be the other. 


T F 10 
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The ORA instruction does just the opposite of the AND, turning 
selected bits on if we use a 1 in the operand, and leaving them 
alone if we use a 0. 


ACCUMULATOR BEFORE ORA 10101010 

ACCUMULATOR AFTER ORA #%1 1 110000: 11111010 

Here we have the digit 1 in any bit of the result where either of the 
original numbers had a 1 (corresponding to TRUE OR FALSE = 
TRUE, FALSE OR TRUE = TRUE, or TRUE OR TRUE = TRUE). 


10101010 
1 1 1 1 0000 



EOR ( Exclusive OR ) 

An exclusive OR (EOR, to the machine) is also 
used to combine two statements (statement one EOR statement 
two). The expression will be true if either one of the statements (but 
not both of them) is true. Again, the usual two truth tables are 
shown below. 



You'll recall that we said characters may be represented in two 
ways (high bit on or off), and that for the Apple, the high bit "on" 
representation is used. The representation for the digits 'O' to '9' is: 

'0* = $30 or $B0 to 
'9' = $39 or $B9 
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Jer the 

following 

series of instructions: 

LDA 

#$B2 

10110010 = $B2 

EOR 

#$80 

10000000 = $80 



00110010 

LDA 

#$B2 

10110010 = $B2 

EOR 

#$FF 

11111111 = $FF 



01001101 


Notice how bits are flipped in each case. EOR $FF flips bits in the 
whole byte, while EOR $80 flips only one bit (the high bit). 


COMPARISONS 

It's only a fluke that we haven’t yet looked at the various 
instructions available to make the 6502 perform comparisons. 
We've gotten by with branching instructions that could act on the 

basis of bits in the processor status register that were set 
automatically by the instructions we performed. Now, however, we'll 
consider instructions which enable us to perform many common 
logical comparisons. We can test for: 




There are three main comparisons we'll be able to make: 

CMP CoMPare accumulator to memory 

CPX ComPare X-register to memory 

CPY ComPare Y-register to memory 

These comparison instructions can utilize almost any addressing 
mode, except implied addressing and accumulator addressing. 

You may be wondering about the choice of mnemonics. CPX 
and CPY are pretty much self explanatory, but why CMP? Wouldn't 


CPA be more consistent? Yes - this is just one more of those things 
that "is”, even if another way seems to make more sense. CMP is 
the standard assembly language mnemonic for this instruction. 

These comparison instructions always compare a register to 
memory, and set the N, Z, and C flags based on the result of the 
comparison. After a comparison is made, the appropriate branching 
instruction can be utilized: 

• 9 • 

COMPARISON BRANCH if TRUE to DEST 


= 

BEQ 

DEST 

• 

O 

BNE 

DEST 

. 

< 

BLT 

DEST 

(Branch on Less 




Than - an alias for 

• 


• 


BCC) 

>= 

BGE 

DEST 

(Branch on Greater 




than or Equal to - 
an alias for BCS) 

> 

doesn't exist - 

use: 



BEQ 

LB1 

• 


BGE 

DEST 


LB1 - 

- (whatever) 

<= 

doesn’t exist - 

use: 



BLT 

DEST 



BEQ 

DEST 


ORCA (but not the ORCA/EZ Assembler) has macros to accomplish 
BLE and BGT - those who are using the ORCA/EZ Assembler will 
have to write their own routines based on the suggestions above. 
Note that BLT and BGE are aci standard 6502 instruction 
mnemonics. In some assemblers, you must use BCC and BCS 
instead. Both choices give the same machine code. 

The above comparisons are for one byte, unsigned numbers. 
To test a two byte unsigned number, you can use code such as: 
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LDA NUM1+1 
CMP NUM2+2 
BNE LB1 
LDA NUM1 
CMP NUM2 

LB1 <any of the above branches> 

Signed comparisons are much more complicated, and will not be 
dealt with here. 


Hex Input 


(Voodoo, Anyone?) 


With these instructions in hand, we can write a subroutine to 
convert a string of hexadecimal digits into its binary equivalent. 
Let's start by outlining the process we will use: 

Set MIL to 0 

The next non-blank character goes to the A register (we need 
a subroutine here that will keep going until it gets a 
non-blank character, even if that character is only a carriage 
return) 

If A is a hex character, then M1L=M1L*16+value of A (we 
need a subroutine to SEC for a hex character and CLC for 
a non-hex character) 

If Ml L > 65535 then set V (overflow flag) 

RETURN 

The subroutines shown in Listing 11. A perform the task. 
Study them carefully - many of the logical operations we have 
presented in this session are put to use. 
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0288 

09A6 






0289 

09A6 


**************************************** 

0290 

09A6 


* 


- 

* 

0291 

09A6 


* 

SGETC - GET A NON- 

-BLANK CHARACTER 

* 

0292 

09A6 

• 

* 



* 

0293 

09A6 

' 

* 

INPUTS: 


* 

0294 

09A6 


* 

Y - POINTS TO 

NEXT CHAR 

* 

0295 

09A6 


* 

- 


* 

0296 

09A6 


* 

outputs: 

w 9 

* 

0297 

09A6 


* 

A - CHARACTER 


* 

0298 

09A6 

- 

* 

Y - UPDATED 


* 

0299 

09A6 


* 

• 


* 

0300 

09A6 


**************************************** 

0301 

09A6 


* 




0302 

09A6 


SGETC START 



0303 

09A6 




• 


0304 

09A6 

B100 

LB1 

LDA <R0),Y 

GET CHAR 


0305 

09A8 

C8 


INY 

POINT TO NEXT ONE 


0306 

09A9 

C9A0 


CMP # * ’ 

DO IT AGAIN IF THIS 

0307 

09AB 

F0F9 

0 

BEQ LB1 

ONE IS BLANK 


0308 

09AD 

60 


RTS 



0309 

09AE 



END 




Local Symbol Table 


LB1 


09A6 



Fig. 11. A 


0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 


Local 

□K 


0A22 

0A22 


**************************************** 
* * 

0A22 

0A22 

0A22 


* SHXID - SEE IF CHARACTER IS HEX * 

* * 

* INPUTS: * 

0A22 

0A22 

0A22 


* A - CHARACTER TO CHECK * 

* * 

* outputs: * 

0A22 

0A22 

0A22 

0A22 

0A22 


* C - SET IF HEX, ELSE CLEAR * 

* * 

* NOTES : * 

* 1) USES SNMID * 

* * 

0A22 


**************************************** 

0A22 

0A22 

0A22 

* 

* 

SHXID START 

0A22 

20EF0C 

JSR SNMID 

0A25 

B00B 

BCS RTS 

0A27 

C9C1 

CMP #’A’ 

0A29 

9007 

BLT RTS 

0A2B 

C9C7 

CMP S' 

0A2D 

9002 

BLT OK 

0A2F 

18 

CLC 

0A30 

0A31 

60 

RTS 

0A31 

38 

OK SEC 

0A32 

0A33 

60 

RTS RTS 

END 


Symbol Table 

0A31 RTS 0A32 



k 


0509 

0A33 

- 






0510 

0A33 







0511 

0A33 


• 





0512 

0A33 

• 

**************************************** 

0513 

0A33 


* 

\ 

i 


* 

0514 

0A33 


* SHXIN - 

HEX INPUT 


* 

0515 

0A33 


* 




* 

0516 

0A33 


* INPUTS: 



* 

0517 

0A33 


* 

R0 - 

■ ADDRESS 

OF STRING 

* 

0518 

0A33 

• 

* 




* 

0519 

0A33 


* OUTPUTS: 



* 

0520 

0A33 


* 

MIL 

- RESULTING BINARY NUMBER 

* 

0521 

0A33 


* 

V - 

SET IF ERROR 

* 

0522 

0A33 


* 


• 


* 

0523 

0A33 

<• 

* notes: 


• 

* 

0524 

0A33 


* 

1) USES SGETC 

, SHXID, SHXNM 

* 

0525 

0A33 


* 



- 

* 

0526 

0A33 


**************************************** 

0527 

0A33 


* 





0528 

0A33 


SHXIN 

START 



0529 

0A33 







0530 

0A33 

A000 

• 

LDY 

#0 

M1L=0 


0531 

% 

0A35 

84D0 


STY 

MIL 



0532 

0A37 

84D1 


STY 

M1H 



0533 

0A39 

20A609 

LB! 

JSR 

SGETC 

GET A NON-BLANK 

• 

0534 

0A3C 


i 

• 



CHARACTER 


0535 

0A3C 

20220A 

• 

JSR 

SHXID 

SEE IF IT'S HEX 


0536 

0A3F 

9015 


BCC 

LB3 



0537 

0A41 

205D0A 


JSR 

SHXNM 

YES - CHANGE CHAR 


0538 

0A44 


i 

• 



TO NUMBER 


0539 

0A44 

0A 

V 

ASL 

A 

PLACE IN HIGH 


0540 

0A45 

0A 


ASL 

A 

NIBBLE 


0541 

0A46 

0A 


ASL 

A 



0542 

0A47 

0A 


ASL 

A 



0543 

0A48 

A204 


LDX 

#4 

USE X TO AVOID 


0544 

0A4A 

0A 

LB2 

ASL 

A 

MESSING UP GETCHAR 

0545 

0A4B 

26D0 


ROL 

MIL 



0546 

0A4D 

2601 


ROL 

MiL+1 

• 


0547 

0A4F 

B007 


BCS 

ERR 

BRANCH IF OVERFLOW 

0548 

0A51 

CA 


DEX 




0549 

0A52 

D0F6 


BNE 

LB2 


< 

0550 

0A54 

F0E3 


BEQ 

LB1 



0551 

0A56 







0552 

0A56 

B8 

LB3 

CLV 




0553 

0A57 

60 

• 

RTS 




0554 

0A58 






• 

0555 

0A58 

A980 

ERR 

LDA 

#$80 

NO SEV INSTRUCTION, 

0556 

0A5A 

6980 


ADC 

#$80 

SO USE A TRICK 


0557 

0A5C 

60 

% 

RTS 




0558 

0A5D 

- 


END 


% 



Local Symbol Table 

0A39 LB2 



f 


ERR 


0A58 LB1 


0A4A LB3 


0A56 



0557 

0A5D 


- 


0560 

0A5D 

**************************************** 

0561 

0A5D 

* 


* 

0562 

0A5D 

* 

SHXNM - CHANGE HEX TO NUMBER 

* 

0563 

0A5D 

* 

- 

* 

0564 

0A5D 

* 

inputs: 

* 

0565 

0A5D 

* 

A - CHARACTER 

* 

0566 

0A5D 

* 

' 

* 

0567 

0A5D 

* 

outputs: 

* 

0568 

0A5D 

* 

A - NUMBER 

* 

0569 

0A5D 

* 


* 

0570 

0A5D 

**************************************** 

0571 

0A5D 

* 



0572 

0A5D 

SHXNM START 


0573 

0A5D 




0574 

0A5D C9C1 


CMP A* 


0575 

0A5F 9002 


BLT HX1 


0576 

0A61 E907 

SBC # , A , - , 9 , -l 


0577 

0A63 290F 

HX1 

AND #7.00001111 


0578 

0A65 60 


RTS 


0579 

0A66 


END 



Local Symbol Table 


HX1 


0A63 



PROBLEMS 


11.1. Write a simple driver for the hex input routine that will accept a 
string from the keyboard, convert it to hex, and use the subroutine 
from the last session to convert it back and write it out. The solution 
is in Listing 1 1 .1 in Appendix A. 

11.2. Add this subroutine to the program from problem 10.7. 
Change the input routine to check for a "$" character as the first 
non-blank character in a line. If it finds the "$" it should call SHXIN, 
otherwise it should call SREDi. See Listing 1 1 .2 in Appendix A for 
the updated program. 


265 


Session Eleven Summary 

4 

Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program) 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC 

- 

add with carry 

AND 

- 

and accumulator to memory 

ASL 

- 

arithmetic shift left 

BCC 

- 

branch on carry clear 

BCS 

- 

branch on carry set 

BLT 

- 

branch on less than (same as BCC) 

BGE 

- 

branch on greater than or equal (same as BCS) 

BNE 

- 

branch not equal 

BRK 

- 

break 

BVS 

- 

branch on overflow set 

CLC 

- 

clear carry 

CMP 

- 

compare A to memory 

CPX 

- 

compare X to memory 

CPY 

- 

compare Y to memory 

DEC 


decrement 

DEX 

- 

decrement X 

DEY 

- 

decrement Y 

EOR 

- 

exclusive or accumulator to memory 

JSR 

- 

jump to subroutine 

INC 

- 

increment 

INX 

- 

increment X 

INY 

- 

increment Y 

LDA 

- 

load A 

LDX 

- 

loadX 

LDY 

- 

load Y 

LSR 

- 

logical shift right 

ORA 

- 

or accumulator to memory 
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PHA - 

push A 

PHP - 

push P 

PLA - 

pull A 

PLP - 

pull P 

ROL - 

roll left 

ROR - 

roll right 

RTS - 

return to subroutine 

SBC - 

subtract with carry 

SEC - 

set carry 

STA - 

store A 

STX - 

store X 

STY - 

store Y 

TAX - 

transfer A to X 

TAY - 

transfer A to Y 

TSX - 

transfer S to X 

TXA - 

transfer X to A 

TXS - 

transfer X to S 

TYA - 

transfer Y to A 


Addressing Modes 

absolute 

accumulator 

immediate 

implied 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 

% • 

APPEND 

comments 

DC 

DS 

END 

ENTRY 

EQU 

GEQU 

s 
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KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
V - overflow flag 
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SESSION TWELVE 


The Calculator Program 

(Move Over, Texas Instruments...) 


Well, the time has come when you're advanced enough to 
write a real program. This session is devoted to the calculator 
program itself, and the steps which are necessary to design, code, 
and execute it. The first eleven sections were simply to get you 
here. 


Organization and Design 

( Have It Your Way ... ) 


Now it's your turn. You've used some software in your day, 
and you know what you like. (You may be more sure of what you 
don't like, but that's valuable, too). A lot of planning needs to go 
into this program if it's to be usable. We'll look at it first from the point 
of view of a user, rather than from our usual programmers' 
perspective. Think about the program as thoroughly as though you 
were going to write the users' manual first. A good, working outline 
of what you'd like in a manual will help a lot with the ultimate design 
of the program. Among the things you'll want to consider are the 
type of input you want to accept, the operations to be performed, 
and the way you'd like your output to be displayed. 

After you've detailed the specifications of the program, you're 
ready to begin the research. For most major programming projects, 
there will be books, magazine articles, and the like, which can give 
you some insight into techniques that have been used to solve the 
same, or a similar type of problem. These can be a source of helpful 
hints, useful subroutines (such as GETC and PUTB, which we’ll be 
using), and advice for avoiding pitfalls other programmers have 
encountered. It may sound a little too academic for your tastes to 
say you're "doing a survey of the available literature", but it can't hurt 
to poke around in a few magazines to see what you can find. 
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The third thing you’ll need to consider is the availability of 
necessary library routines. If you are missing some basic primitives, 
write them and get them working first. As you are well aware by now, 
the 6502 is not the genius many of us imagined when we first got 
involved with computers. Many basic operations are not available (at 
least not in the form of a single instruction in the 6502 instruction 
set), so you'll need to look at the subroutines available to you. 
Once you've outlined your program, check its requirements against 
the subroutines you've already written and those available in ORCA. 
Before you go on to integrating these parts into one big program, 
write and debug any that you still need. 

If you've done your homework well, you're now ready to write 
the program. By write the program, we mean to write a skeleton 
program using dummy subroutines, so that you'll have a chance to 
debug this "main line" of the program without having to worry about 
possible bugs in any of the many subroutines you'll have to use. 
This is a process familiar to Pascal programmers, but possibly new to 
those of you who've only programmed in BASIC, unless you've 
been doing some pretty structured BASIC programming. Don’t be 
so brave and daring that you try to get it all running at once, unless 
you want debugging to become an almost superhuman task. 

Once the main line is running, add your subroutines one at a 
time. Make each work correctly before you go on to add another 
small piece of the program. ("Small piece" is a term that is relative to 
experience - after you've been doing some fairly complex assembly 
language programming for awhile, you'll be able to add larger 
chunks at once and still debug them successfully.) 
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What Does It DO? 


( And How Does It DO It? ) 


A QUICKIE VERSION OF THE USERS' MANUAL 

Before we begin writing the code for the main program, it's 
crucial that we look closely at both the requirements AND limitations 
of this calculator program. This will help us to avoid the human 
version of an infinite loop - adding more and more to the program, 
and never getting what we originally wanted out of it. Besides, we 
just said it's the first step in writing a large program, and we don't 
want to do it wrong! 

1. We intend this to be a four-function (+, -, *, /) 
arithmetic calculator, capable of accepting decimal or 
hexadecimal input. 

2. The calculator should be able to print the value of an 
expression. The command to do this will take the 
form: 

? expression 

3. The calculator must also be able to assign a value to 
any of 26 variables, identified by single alphabetic 
characters. The assignment statement will take the 
form: 

var = expression 

4. The variables ( A through Z ) will contain 2-byte 
integers, and will be initialized to zero. 

5. The output (from our version of a PRINT statement) 
will consist of the result of the evaluation of an 
expression, displayed in two forms: as a signed 

decimal numeral, and as a hexadecimal numeral. 

* 
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We’ve referred here several times to an "expression", and to 
"evaluating" this expression, but we have not defined either. This is 
a very important step, since it determines how a great deal of the 
code must be written: 

6. An expression will be a sequence of numbers 
(whether represented by decimal numerals, hex 
numerals, variables, or a combination of these), 
separated by binary operators ( +, -, *, / ). 

■ 

7. Evaluation of an expression will be from left to right, 
without the usual precedence of division and 
multiplication over addition and subtraction. There is 
no use of parentheses. 

8. An expression may be preceded by a unary minus 
( - ) which will be dealt with internally to convert the 
value of the expression to its additive inverse. 

9. Numbers will be entered in decimal form (positive or 
negative, from 0 to 32767) or in hexadecimal form ($ 
followed by one or more hex digits). 

Before going on to the design needed to accomplish all this, 
we're going to take time out to discuss #7-8 above in more detail. If 
you’re a mathematician by trade or training, or if you're certain you 
understand the implications of these elements of the program's 
design, the examples will illustrate what you may consider to be 
"obvious to the most casual observer". Many "casual observers" 
would disagree with you, but no one's watching, so you can get 
away with skipping this section. 

• • • 

For those of you who may be wondering what a "binary 
operator” is: it is a symbol for an operation (for example, + is the 
symbol for addition), which is placed between the two values it is 
supposed to work on ( 4 + 2 , for example). It is called "binary” 
because it works on two values, not because it is necessarily used 
with binary numbers (although a binary operator such as + can be 
used to operate on two binary numbers). The result of a binary 
operation (an operation on two numbers) is a single number, such 
as the result of an addition (4 + 2 = 6). 
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EVALUATION EXAMPLES 


The following expressions have been evaluated twice. The first 
result is obtained by evaluating from left to right, without 
precedence for any operator (as is to be done by the calculator 
program). The second is evaluated with precedence for 
multiplication and division, as is the usual practice in most 
programming languages (and algebra classes). It may take a while to 
become accustomed to this "new" method of doing things, but be 
sure you understand what's going on, as this is the way that the 
calculator will have to deal with expressions. 


6 * 4-2 * 10 
24-2 * 10 
22 * 10 
220 


6 * 4-2 * 10 
24 - 20 
4 


5 + 4 * 3 - 7 
9 * 3-7 
27 - 7 

20 

3-27 / 4+1 
-24 / 4 +1 
-6 +1 
-5 


5 + 4 * 3 - 7 
5 + 12 -7 
17 - 7 

10 

3-27 / 4 + 1 
3 - (6 3 / 4) +1 
(- 3 3 / 4 ) + 1 
-2 3/4 


Of course, all of this may seem a little strange - why not 
recognize operator precedence and do it right? It turns out that 
"doing it right" would double the complexity of our program, and we 
really didn't want to scare you away. This is, after all, your first real 
assembly language program! The bibliography gives a reference to 
a good book which describes a reasonably simple way to do 
operator precedence, parentheses, and so on. After finishing this 
program, a good project would be to add operator precedence. 
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PROGRAM DESIGN 

* 

r 

Here we go - the design for the program itself. The first thing 
that we want is to initialize all variables to 0 when the program first 
begins. We also would like to clear the screen, write our copyright 
message (or any other pertinent information) on the top line of the 
screen, and skip a line so input will be easier to read. We also want 
to set the prompt character to which will distinguish our 
program from others such as Applesoft (which uses ]) and ORCA 
(which uses #). These start-up activities can be collected into a 
subroutine which we'll call SINIT (Subroutine to INITialize the 
system). 

Our main program is really very short. It is shown below in 
"pseudocode", which, like flowcharting, is just a way of illustrating 
program design: 

JSR SINIT INITIALIZE THE SYSTEM 

LB1 Read a Line From the Keyboard 

Call the Math Handler 

BCS LB1 (the carry flag is set or cleared in the 

math handler) 

RTS 


IMPLEMENTING THE DESIGN 

STEP 1. Write "dummy" SINIT (Subroutine INITialize), 
read-a-line, and math handler routines. The dummy math handler 
should simply clear the carry flag. The dummy SINIT can be as little 
as a comment line, as can the read-a-line routine. Get this running, 
and then you can say (as does Mr. Orca himself, at this point in the 
writing of a program), "My program's finished! Now all I have to do is 
write the subroutines." Don’t let these famous last words bother 
you. We've already written a lot of those subroutines, and you'll 
soon be getting helpful hints (in the form of code!) for much of the 
rest. If you get stuck, Appendix A has our version of the program at 
each of these steps. 
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STEP 2. Now to write the "real" SIN1T! We have only 26 
variables (corresponding to the 26 letters of the alphabet), and 
since they're 2-byte integers, we'll want to reserve 52 bytes in 
memory as storage space for these variables. This gives us a 
convenient, fixed place to look if something bombs and we need to 
see what values were in our variables: 


VARS 

GEQU 

$300 

VARIABLE STORAGE SPACE 


LDX 

#51 

WE NEED 52 BYTES 


LDA 

#0 


LB1 

STA 

VARS, X 



DEX 


• 

« • T* 

BPL 

LB1 



STEP 3. Get the code above working, and add the rest of 
SINIT. "The rest" is just clearing the screen, writing your title line, 
and setting $33 to our prompt character of Wasn't that a short 
step? 

STEP 4. Now we need a working routine to read a line from 
the keyboard. If the first character in the line is a question mark (?), 
we know that an expression to be evaluated is to follow. We want to 
skip any leading blanks, read and identify characters which 
represent numbers, and stop reading when we hit an operator (we'll 
also put that operator back into the line so we can come back later 
and read it to determine what operation to perform). We are 
defining standard string manipulation - a miniature interpreter, if you 
will, that parses a line for us. For example, if the input line is: 

? 40+10 

the routine reads the "?", skips the blanks, reads the ”4" and uses it 
in some way, reads the "0" and uses it, reads the "+" and quits (to 
interpret the number it has read ) and puts the "+" back so it can be 
read again later. 


Now for the routine itself: 


INITIALIZATION 

LDA #0 CURRENT CHARACTER POSITION FOR 

PARSER 

STA CCPOS 

STA PUTBUF INITIALIZE PUTBACK BUFFER 
JSR SGETC 

EVALUATE EXPRESSION AND PRINT RESULT 


CMP 


- 

BNE 

ENDIF 


JSR 

SEXPR 

EVALUATES & RETURNS 2-BYTE 

* 


RESULT IN MIL 

LDA 

MIL 

SAVE NUMBER TO CONVERT TO HEX 

STA 

NUM1 

LATER 

LDA 

M1H 


STA 

NUM1+1 


LDX 

#6 


JSR 

PRBL2 

PRINT 6 BLANK SPACES 

JSR 

S 

OUTPUT DECIMAL NUMBER (FILL IN THE 

* 


NAME OF THE ROUTINE YOU WROTE) 

LDX 

#6 


JSR 

PRBL2 

PRINT 6 BLANKS 

• •• 


OUTPUT HEX NUMBER 

JSR 

CROUT 

CARRIAGE RETURN 

SEC 



RTS 




SET VAR TO VALUE 


■ 

LB2 JSR 
* 

SALID 

CHECK FOR ALPHABETIC CHARACTER 
(NOTE 1) 

BCC 

LB3 

SKIP IF NOT A..Z 

STA 

* 

TEMP 

SAVE CHAR (VARNAME) IN LOCAL 
VARIABLE 
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JSR GETC GET NEXT CHARACTER 

CMP #'=' ERROR IF NOT ’=' 

BNE ERR 

JSR SEXPR EVALUATE EXPRESSION (NOTE 2) 

K TEMP 

SBC #'A' GET CORRECT ARRAY INDEX 

ASL A MULTIPLY A 2-BYTE NUMBER BY 2 

TAX PUT INDEX IN X REGISTER 

LDA MIL SAVE VALUE 

STA VARS.X 

LDA M1H 

STA VARS+1.X 

SEC 

RTS 

• v "»■ • 

* • • 

; QUIT IF @ 

LB3 CMP 

BNE ERR 

CLC QUIT PROGRAM 

RTS 

; ERROR ROUTINE 
ERR JSR SEROR 

WRITE MSG1 

RTS 

* % 

; LOCAL VARS 
TEMP DS 2 

MSG1 DC C'INPUT ERROR' 

MSG2 DS 0 

END 

SEROR is a subroutine which spaces over CCPOS spaces 
and prints a ” A ". The calling routine then prints the error message. 
Since CCPOS is the position in the line where the next character 
comes from, your program points out where the error is, as well as 
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% 

< 

• • 

% 

i- 





giving an error message. This is called style! Write SEROR 
yourself. , 

At this point, you'll need a dummy SEXPR so that you can 
debug this section of code. You will probably be best off using just 
a comment in column 1 ). 

•• 

You also might want to read up on parsing techniques at this 
point, since that's what we're really doing here. We'll be using a 
putback routine, but we're doing it because of the benefits of 
hindsight (we already know we'll need one, but you probably 
wouldn't have known it without being told, unless you had done 
some research). This is why the reading before programming is so 
vital - there are lots of little things that can jump up and bite you if 
you don't know enough to watch out for them (these are known 
scientifically as "gotchas"). 

■ 

The function of a putback routine is to put a character 
someplace where the character input routine can find it. The 
character input routine will always look in the putback buffer before 
fetching a character from the input line. 

Now for the GETC routine: 

CCPOS GEQU $10 (IN MAIN ROUTINE) 

PUTBUF GEQU $11 

* ************************************************ 

* * 

* SGETC- GET THE NEXT CHARACTER * 


SGETC 

START 

• 


LDA 

PUTBUF 


BNE 

LB2 


LDY 

CCPOS READ FROM INPUT LINE 

LB1 

LDA 

INY 

LINE.Y 

* 


CMP 

# ' ' 


BEQ 

LB1 


STY 

RTS 

CCPOS 



LB2 LDY #0 READ FROM PUT-BACK BUFFER 

STY PUTBUF 

RTS 

END 


♦ *********************************************** * 
* * 

* SPUTB - PUT BACK A CHARACTER 
. * * 


SPUTB START 
STA PUTBUF 
RTS 
END 


***** Debug this section before going on!!! ***** 

STEP 5. Now we're ready to tackle expression evaluation. 
We have to look at each number and decide if it's decimal or hex, 
and also deal with possible leading “+" or signs. We'll ignore any 
'V' signs, and peel off any signs (while having the computer take 
note of the fact that we have a negative number, of course). The 
pseudocode looks like this: 

look for +/- 
ignore +, peel off - 

read first number (if there was a change to negative 

internally) 

read operator 
validate operator 
save operator 
look for +/- 
read next number 

The code which follows will get you started on this part of the 
program, but will not do it all. You will have to write an error handler, 
and put in the routines you've already written to add, subtract, 
multiply, and divide. 
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SEXPR 

START 



RETURN 

EQU 

$8D 

END-OF-LINE CHARACTER 


JSR 

SGETN 

GET NUMBER 


BCC 

RTS 


LB1 

LDA 

MIL 



STA 

NUM1 



LDA 

M1H 



STA 

NUM1+1 



JSR 

SGETC 



CMP 

#RETURN 


BEQ 

RTS 



STA 

OPER 

DECLARE THIS 


LDA 

CCPOS 

SAVE CCPOS FOR ERROR 

* 



HANDLING 


STA 

OPERPOS 


JSR 

GETN 

GET THE NEXT NUMBER 


LDA 

MIL 

PUT SECOND NUMBER INTO M3L 

☆ 

STA 

M3L 

AND M3H 


LDA 

M1H 



STA 

M3H 



LDA 

NUM1 

PUT FIRST NUMBER INTO MIL AND 

* 

STA 

MIL 

M1H 


LDA 

NUM1+1 



STA 

M1H 



LDA 

OPER 



CMP 

#V 



BEQ 

LB2 



CMP 




BEQ 

LB3 



CMP 

#'*’ 



BEQ 

LB4 



CMP 

#7' 



BEQ 

LB5 


☆ 

RTS 


INSERT ERROR HANDING 

LB2 

• • • 


ADD ROUTINE 


JMP 

LB6 
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LB3 

mm m 

JMP 

LB6 

SUBTRACT ROUTINE 

LB4 

' fit 

JMP 

• ^ 

LB6 

MULTIPLY ROUTINE 

• 

LB5 

• • • 

JMP 

LB6 

DIVIDE ROUTINE 

V 

• 

LB6 

• * • 

JMP 

LB1 

ERROR HANDLER 

OPER 

DS 

1 

OPERATOR 

NUM1 

DS 

2 

FIRST OPERAND 

OPERPOS DS 

END 

1 

POSITION OF OPERATOR 


***** TYPE IT IN AND CHECK IT OUT!!! ***** 

Now you can add the number input routine, SGETN. It should 
be able to detect a leading + and ignore it, detect a leading - and 
produce a negative number, and detect a leading $ for hex number 
input. If a legal number is found, it returns with the carry flag set, 
otherwise, it returns with the carry flag clear. 

That's about it for the hints, except for a few notes mentioned 
in comments in the code: 

NOTE 1: Write your own routine to set the carry flag if the 
character is alphabetic, and to clear the carry flag if it is not. Use the 
library routine that checks for hex characters as an example. 

NOTE 2: We must do array access to find the right location for 
the variable. Everybody but IBM uses the ASCII character set, in 
which the alphabetic characters are in order, so we've made that 

assumption. 
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Session Twelve Summary 


Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language program) 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC 

- 

add with carry 

AND 

- 

and accumulator to memory 

ASL 

- 

arithmetic shift left 

BCC 

- 

branch on carry clear 

BCS 

- 

branch on carry set 

BLT 

* 

branch on less than (same as BCC) 

BGE 

- 

branch on greater than or equal (same as BCS) 

BNE 

- 

branch not equal 

BRK 

- 

break 

BVS 

- 

branch on overflow set 

CLC 

- 

clear carry 

CMP 

- 

compare A to memory 

CPX 

- 

compare X to memory 

CPY 

- 

compare Y to memory 

DEC 

- 

decrement 

DEX 

- 

decrement X 

DEY 

- 

decrement Y 

EOR 

- 

exclusive or accumulator to memory 

JSR 

- 

jump to subroutine 

INC 

- 

increment 

INX 

- 

increment X 

INY 

- 

increment Y 

LDA 

- 

load A 

LDX 

» 

load X 

LDY 

- 

load Y 

LSR 

- 

logical shift right 

ORA 

- 

or accumulator to memory 
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PHA - 

push A 

PHP - 

push P 

PLA - 

pull A 

PLP - 

pull P 

ROL - 

roll left 

ROR - 

roll right 

RTS - 

return to subroutine 

SBC - 

subtract with carry 

SEC - 

set carry 

STA - 

store A 

STX - 

store X 

STY - 

store Y 

TAX - 

transfer A to X 

TAY - 

transfer A to Y 

TSX - 

transfer S to X 

TXA - 

transfer X to A 

TXS - 

transfer X to S 

TYA - 

transfer Y to A 


Addressing Modes 

absolute 

accumulator 

immediate 

implied 

indirect indexed addressing 
relative addressing 
zero page 


Assembler Directives 

APPEND 

comments 

DC 

DS 

END 

ENTRY 

EQU 

GEQU 
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KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
V - overflow flag 



SESSION THIRTEEN 

Moving On 

(Silicon Valley or Bust) 


Caps and Gowns, Please 

( Where Do We Go From Here...) 

Well, this is the end. Before getting on to the business of 
graduation, let's take a quick look at where we started, where we 
have come, and where you might want to go from here. 

Twelve sessions ago, you started (hopefully) as at least a 
BASIC programmer who wanted to know how to talk to your Apple 
on its own terms. We started by learning about the inside of the 
Apple in terms of its memory, CPU and I/O methods. As our 
programs got longer, we learned to use an assembler to allow the 
same level of flexibility of machine code programming, but with far 
less hassle. Succeeding sessions have concentrated on what are 
frankly the biggest hurdles in assembly language programming: 
input, output and mathematics. It is really too bad, but in assembly 
language there is simply no way to avoid a little math. Hopefully, the 
subroutine library made it painless enough to bear. The book has 
culminated in a working four function decimal-hexadecimal 

calculator. 

Of course, you are not yet an assembly language expert. 
Carrying forward with the graduation analogy, you started in 6th 
grade, with the fundamental tools of programming in hand (BASIC). 
The goal of this book was to take you the rest of the way through 
secondary school. At this point, you should find (with a little effort, 
at least at first) that all of those unintelligible books on assembly 
language that you used to look at suddenly make some sense. You 
may be satisfied, now that you know what makes your machine tick, 
to stop and go back to high level languages forever. If so, you will 
go back better equipped to understand them. If not, your 

education must continue. 
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There are two things that you must do at this point. The first is 
to continue on to an intermediate level assembly language book, to 
get a firm grasp on the material that you now know. Most of these 
books will review, at least briefly, all of the material covered in this 
book - don't scorn the review, it will help in the long run! After going 
through an intermediate book, you should at least become familiar 
with an advanced reference book on the 6502. Several books in 
both of these categories are listed in the bibliography. 

The second, and most important thing that you must do, is to 
program. If you can't think of anything to write, start with Assembly 
Language Exercises, and work all of them. This is a fine book, and 
not a bad intermediate text. With the basics mastered, it should be 
easy to follow, and it deals with some really fun topics, like graphics 
and sound. Be sure to try to write some small programs before you 
launch into anything really large. Having seen the calculator, you 
should have some feel for just how long even simple programs can 
become in assembly language; your first solo program should be no 
longer than that one. 

As you go, try to build up your own library of subroutines, 
much like those which were used in the calculator. You will find that 
it takes a little more time to write a general routine, but your library 
will quickly take form, and will be customized to the kind of 
programming you do most. 

Well, enough philosophizing; dry your eyes. Before booting 
you out into the cold, cruel RAM, we will close with five brief 
sections, just to let you know that you don't (yet) know it all. 
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The Rest of the 6502 


(R.I.P.) 

Although we covered a lot of instructions and addressing 
modes, we did not cover them all. Some are used so infrequently 
that it is just too hard to think up really great ways to use them in a 
calculator (or in some cases, any way at all). 

There is one addressing mode that we skipped, called 
indexed indirect addressing. It is coded like 

LDA (ZP,X) 

where ZP is a zero page address. The effective address is the 
address pointed to by the address contained in ZP+X, as shown 

below. 

X: $4C 
ZP: $80 
CC: 00 20 

effective address calculation: 

ZP $80 

+ X $4C 


$CC 

now use the address pointed to by $CC, $2000, as effective 
address. 

This is one of the most singularly worthless addressing modes 

on any CPU. It is quite handy for some applications in controllers (or 

so we are told), but for normal programming, it is almost never used. 
The only code we have ever seen which actually uses this 
addressing mode is the Apple F8 ROM, which sets the X register to 
zero to use it for indirect addressing, so that they did not have to 
destroy the contents of the Y register to do the same thing. (Note 
that indexed indirect and indirect indexed addressing both end up 

k 
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with the same effective address if the X and Y registers are both 
zero.) 

We also did not cover the BIT instruction. Due to the fact that 

* 

the BIT instruction does not have a full set of addressing modes on 
the 6502, it has been largely ignored. The basic function of the BIT 
instruction is to do a logical AND of the accumulator and a memory 
location without saving the results of the AND. Instead, the zero 
flag is set based on the result, the negative flag is set to match the 
high byte of the memory location, and the overflow flag is set to 
match bit 6 of the memory location. This can be very useful for 
some types of bit testing. 


DATA Segments 


(Data for the Masses) 


Through careful planning and a little luck, we avoided using 
data areas in any of our example programs that needed to be 
accessed by more than one subroutine, but could not be placed in 
zero page. A pair of assembler directives in the ORCA assembler 
actually makes sharing data easy, and we will look at them now. 


A data segment looks a lot like a subroutine, except that it 
starts with DATA instead of START. A label is still needed on the 
DATA directive, and it is still global. Inside a data segment, you can 
only use DC, DS, EQU, GEQU and comments. All labels in a data 
segment are local to that data segment. 

If a subroutine needs to access something in a data segment, 
it uses a USES directive right after its START. All local labels in the 
data segment also become local labels in the subroutine. 

6 

The following subroutine illustrates this. You might go back 
and change your calculator program to use a DATA area. 
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COMMON DATA 


CCPOS 

DC 

END 

ll'O' 

SPUTB 

START 



USING 

COMMON 


STA 

RTS 

END 

CCPOS 


The 65C02 and 65816 


( A Better Mousetrap! ) 

The 6502 is not the ultimate CPU that you can put into your 
Apple. A new version, called the 65C02, is now available. It is pin 
compatible with the old 6502, which means that you can pull out the 
old one and plug in the new one. If you have an Apple//c, or an 
enhanced //e, you have one already. For the most part, all of your 
old software will still run, since the 65002 simply adds to the old 
instruction set. Unfortunately, a few people decided to protect their 
software by taking advantage of bugs in the 6502, the most obvious 
of which was to use some unimplemented op codes (they are not 
NOP (No Operation) instructions, as the Apple reference manual 
indicates!). These programs will not work on the 65C02, which fixed 
the bugs and made all unused op codes into NOP instructions. As 
far as the authors know, this was limited to a few no longer popular 
arcade games - everything we have tested has worked. Incidentally, 
we have tested the 65C02 on an Apple ][, Apple ][+, and an Apple 
//e with success. There are some rumors that the chip will not work 
on early versions of the Apple; as far as we know, this is not true for 
production versions of the chip. Some early preproduction chips 
did have this problem, but the error was eliminated early on. 
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On to the good stuff. The 65C02 gives us some new 
addressing modes, and some new instructions. These are 
summarized in the summary section (that makes sense, doesn't it?); 
for now, we will simply list the additions. ORCA does allow you to 
assemble programs using the new instructions if you use the 

65C02 ON 

directive at the top of your program, but you must have a 65C02 
installed in your computer to run the finished program. 


BIT ( no special name for this one ) 

The old bit instruction has had a facelift in the form of three 
new addressing modes, making it a useful instruction. The new 
addressing modes supported are immediate, zero page indexed by 
X, and absolute indexed by X. The addressing modes are coded 
just like they are for other instructions. 


BRA ( BRanch Always ) 

This is a new relative branch instruction. Like all relative 
branches, it has a limited range, but requires only two bytes and 
three machine cycles to execute. Unlike the others, it does not test 
a condition; it is a BRanch Always, similar to a JMP in function. The 
difference is that the JMP takes three bytes and three cycles. 


DEC A ( DECrement ) 

The old DEC instruction now has a new addressing mode, 
accumulator addressing. This means that the instruction 

DEC A 

is all that is needed to lower the value of the accumulator. The 
instruction requires one byte of memory. 
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INC A ( INCrement ) 

s 

The old INC instruction has a new addressing mode, a much 
welcomed accumulator mode, like the DEC instruction. This allows 
single instruction incrementing of the accumulator. 

t • 

INC A 


JMP (ABS.X) ( JuMP ) 

The JMP instruction is the sole beneficiary of a new 
addressing mode, a form of the indexed indirect addressing mode 
that allows the indirect address to be somewhere other than zero 
page. It takes the form, JMP (ABS,X). Unlike the zero page version, 
this addressing mode is genuinely useful for jump tables. For 
example, the following code assumes that DISP is a displacement 
into a jump table. Note the suggestive labels for a possible 
application to a program that you already know (and love?). 


TABLE 


LDX 

DISP 

JMP 

(TABLE, X) 

DC 

A'SADD2' 

DC 

A'SSUB2' 

DC 

A'SMULT' 

DC 

A'SDIVD’ 

DC 

A'SMOD2' 


PHX, PHY, PLX, PLY ( PusH X, PusH Y, PulL X, PulL Y ) 

With the addition of four new push and pull instructions, all of 
the user registers can be pushed and pulled from the stack. 

STZ ( STore Zero ) 

The STore Zero instruction sets a memory location to zero. 
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TRB ( Test and Reset Bit ) 

The Test and Reset Bit instruction is a specialized bit 
manipulation instruction. The accumulator is logically ANDed with 
the memory location (thus reseting the bits that were zero in the 
accumulator), and the result is saved in the memory location. The Z 
flag is set based on the result of the logical AND; the N and V flags 
are set to the original values of bits 7 and 6, respectively, of the 
memory location. The instruction can use both zero page and 
absolute addressing. 


TSB ( Test and Store Bit ) 

The Test and Set Bit instruction is another specialized bit 
manipulation instruction. The accumulator is logically ORed with the 
memory location (thus setting the bits), and the result is saved in the 
memory location. The Z flag is set based on the result of the logical 
or; the N and V flags are set to the original values of bits 7 and 6, 
respectively, of the memory location. The instruction can use both 
zero page and absolute addressing. 


Indirect Addressing 

In addition to these extensions, a true indirect addressing 
mode has been provided for the ORA, AND, EOR, ADC, STA, LDA, 
CMP and SBC instructions. This allows a pointer to be used without 
an index register, and is equivalent to indirect indexed addressing 
with the Y register set to zero. Like the other indirect addressing 
modes on the 6502, this one is limited to pointers in zero page. It is 
coded as a zero page address in parenthesis: 

LDA (ZP) 

Well, that may or may not thrill you (it did us), but ihe next 
advance is sure to give you goose bumps. The same place that 
developed the 65C02 has also recently released the 65816, which 
in at least one form is also pin compatible with the 6502, and can be 
plugged into your Apple. Like the 65C02, it will run all of your old 
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software. The thrilling part is that the new CPU is (drum roll) a 16 bit 
CPU!!! This means that the accumulator and both the X and Y 
registers can hold two bytes instead of just one. This, combined 
with a host of new instructions and addressing modes, makes for a 
wonderfully powerful new CPU, which is already being supported 
by new software. Although the ORCA/EZ Assembler does not 
support the 65816, ORCA/M does - in fact, ORCA/M is the official 
definition of the 65816 assembly language instruction set, by virtue 
of its adoption by the chip designer, the Western Design Center. 
{Footnote: Purists and electricians may argue that the 65816 is not 
a 16 bit CPU, since it still accesses memory 8 bits at a time. 
Programming-wise, this distinction is unimportant. Also, note that 
the 8088, with all of its hoopla as a 16 bit processor, also accesses 
data 8 bits at a time. Unfortunately, you can't just plug a 65816 into 
your Apple II series computer. That's the bad news. The good 
news is that another chip, the 65802, is pin-compatible with the 
6502. You can just plug a 65802 into your computer. An Apple ][ 
with a 65802 is every bit as much of a 16 bit computer as the IBM 
PC.} 
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Some More Aids 


(A Non-Terminal Disease) 

Throughout this book, we have mentioned various aids to 
programming, and even used a few. This section lists a few of the 
important ones, some of which we have not used. 


The F8 ROM 

The F8 ROM is the ROM chip that comes with every Apple 
computer and that occupies the addresses from $F800 to $FFFF. It 
contains a number of useful routines, many of which we used in the 
calculator program. The Apple Reference Manual contains a list of 
all of the routines, along with inputs and outputs, that Apple has 
more or less committed themselves to maintaining in any future 
versions of the ROM, and so the Apple Reference Manual is a good 
place to start looking for helpful subroutines. There are a number of 
independent guides to the ROM which list other useful routines 
that are contained there, or you can simply browse through the 
listing of the ROM for yourself. Listings are included in the Apple 
Reference Manual . If a routine exists in ROM, you might as well use 
it - there is no cost, since the ROM will take up the memory whether 
or not you make use of it. If you want others to be able to use your 
programs, though, check to make sure that the entry point is valid in 
all four versions of the ROM (Apple ][, Apple ][+, Apple lie, and 
Apple//c). 


The Applesoft ROM 

Also found in most computers is the Applesoft interpreter, 
located in ROM and occupying the addresses $D000 to $F7FF. 
These ROMs (there are five of them in an Apple ][+) contain 
subroutines to do all of the things that the BASIC language can do, 
including floating point arithmetic, high resolution graphics, and a 
number of useful utility operations. These subroutines can be 
invaluable, and you should get one of the many references to the 
entry points in the interpreter and become familiar with it. 
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Subroutine Libraries 


If you would like more library subroutines, there are at least two 
good sources. The first is the ORCA/M subroutine library, which is 
probably the easiest to use, since ORCA/M accesses the library 
automatically through macros. The DOS ORCA/M libraries include 
single and double precision floating point subroutines, two and four 
byte integer mathematics, and input and output utilities. The 
macros also tie into the Apple ROMs to give easy access to the 
Apple high and low resolution graphics subroutines. Starting with 
ORCA/M 4.0 (the ProDOS version), these libraries include a large 
number of additional input and output routines, eight byte integer 
mathematics, a sound subroutine with four voices and a seven 
octave range, extended graphics, and string manipulation, but 
floating point support is no longer standard. 

Another excellent source of subroutines is the book 6502 
Assembly Language Subroutines , which covers array accessing, 
integer arithmetic, binary coded decimal arithmetic, string 
operations, and input and output. 


Magazine Articles 

Old magazine articles can provide a fascinating array of 
subroutines and complete programs in assembly language. One of 
the best such magazines was Micro, which is now available as 
collections of articles in book form at most computer book stores. A 
late arrival is Nibble , which has recently begun expanding to cover 
assembly language. Also, check out CALL-A.P.P.L.E.. Softalk and 
Apple Orchard . At the time of this writing, both Softalk and Micro 
have gone out of business, but your local users' group is sure to 
have someone with back issues. 


295 



ORCA/M 


(A Whale of an Assembler) 

The book ends with a beginning. We will look briefly at the 
assembler of choice for writing long programs, or programs that 
need advanced instructions. We will do this by listing the major 
features of ORCA/M that differ from the ORCA/EZ Assembler. 

Keep in mind that this is only a brief overview. The ORCA/M 
user's manual is nearly 400 pages long; we simply don't have the 
room to cover the program in detail. This is just to give a flavor of 
what ORCA/M is all about. 


The MONITOR 

4 

The ORCA/M command processor is called the monitor. It is a 
very extended version of the one you are used to in the ORCA/EZ 
Assembler. 


The Editor 

The editor in versions of ORCA/M prior to version 4.0 is 
basically the same one as is in the ORCA/EZ Assembler, with an 
insert mode added. From version 4.0 on, an updated version with a 
few changes is used. 


The Assembler 

The ORCA/M assembler is far larger and more capable that the 
ORCA/EZ Assembler. The most important difference is its support 
of macros. A macro assembler gives you a way to define your own 
custom instruction set, which the assembler then translates into 
6502 assembly language using the macro definitions that you give 
it. 
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The Link Editor 

There is no link editor in the ORCA/EZ Assembler. ORCA/M 

* 

uses one for two reasons. The first is that it makes some things 
easier when assembling large programs; for example, you can 
selectivly reassemble small parts of the large program, and relink 
them. The second major benefit is that ORCA/M subroutines can 
be combined with subroutines written in other languages on the 
ORCA system. A program can be written partly in assembly 
language, and partly in Pascal, and the finished program can be 
assembled, complied, link edited and executed with a single 
command. Wow! 


The Libraries 

In the last section, we spilled the beans on what was in the 
ORCA libraries. These take the form of macro and subroutine 
libraries, which, along with the source code for the operating 
system, occupy three of the four disks that come with ORCA/M 3.5. 
The system comes with over 10,000 lines of source code! This 
could be formidable, except that the subroutines are all used 
through macros. As an example, the following sequence of macros 
are all that are needed to read two floating point numbers, multiply 
them, and print the result. You might notice that it's less code than 
we used to do the same thing with two byte integers! 

MULT START 

INPUT 'First Number:' 

FPIN NUM1,$200 
INPUT 'Second Number: ' 

FPIN NUM2,$200 
FMULT NUM1 ,NUM2 
PRINT 

PRINT2 'Result: ' 

FPOUTNUM1 

PRNUM 

RTS 

END 
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Prologue 

Well, you've finished. We offer our congratulations, and 
heartily welcome you into the tiny guild of assembly language 
programmers, who do it with bytes. We sincerely hope that you 
have enjoyed working through the book as much as we enjoyed 
writing it. 

We would be glad to hear from you, especially regarding any 
comments on this book or on the ORCA language products. 
Please keep in mind that we are both lousy and unreliable letter 
writers, and may not get back to you, but rest assured that your 
comments will not go unread. 




Session Thirteen Summary 

Apple Monitor Commands 

CTRL-E - examine registers 
G - execute a program (GO) 

L - disassemble (list a machine language) program 
read memory 

set (enter values into) memory 


Assembly Language Instructions 


ADC 

- 

add with carry 

AND 

- 

and accumulator to memory 

ASL 

- 

arithmetic shift left 

BIT 


text bits in memory with accumulator 

BCC 

- 

branch on carry clear 

BCS 

- 

branch on carry set 

BLT 

- 

branch on less than (same as BCC) 

BGE 

- 

branch on greater than or equal (same as BCS) 

BNE 

- 

branch not equal 

BRK 

- 

break 

BVS 

- 

branch on overflow set 

CLC 

- 

clear carry 

CMP 

- 

compare A to memory 

CPX 

- 

compare X to memory 

CPY 

- 

compare Y to memory 

DEC 

- 

decrement 

DEX 

- 

decrement X 

DEY 

- 

decrement Y 

EOR 

- 

exclusive or accumulator to memory 

JSR 

- 

jump to subroutine 

INC 


increment 

INX 

- 

increment X 

INY 

- 

increment Y 

LDA 

- 

load A 

LDX 

- 

load X 

LDY 

- 

load Y 

• 

LSR 

- 

logical shift right 
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ORA 

- 

or accumulator to memory 

PHA 

- 

push A 

PHP 

- 

push P 

PHX 

- 

push X 

PHY 

- 

push Y 

PLA 

- 

pull A 

PLP 

- 

pull P 

PLX 

- 

pull X 

PLY 

- 

pull Y 

ROL 


roll left 

ROR 

- 

roll right 

RTS 

- 

return to subroutine 

SBC 

- 

subtract with carry 

SEC 

- 

set carry 

STA 

- 

store A 

STX 

- 

store X 

STY 

* 

store Y 

STZ 

- 

store zero 

TAX 

- 

transfer A to X 

TAY 

- 

transfer A to Y 

TRB 

- 

test and reset bit 

TSB 

- 

test and set bit 

TSX 

- 

transfer S to X 

TXA 


transfer X to A 

TXS 

- 

transfer X to S 

TYA 

- 

transfer Y to A 


Addressing Modes 
absolute 

absolute indexed indirect addressing 

accumulator 

immediate 

implied 

indexed indirect addressing 
indirect addressing 

indirect indexed addressing 
relative addressing 
zero page 
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Assembler Directives 

APPEND 

comments 

DC 

DS 

END 

ENTRY 

EQU 

GEQU 

KEEP 

PRINTER 

START 


Processor Status Flags 

C - carry flag 
Z - zero flag 

N - negative (minus) flag 
V - overflow flag 
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Appendix A 

Worked Solutions to Problems 


$AD4F: 

% 

10 * 

4096 = 40960 

13 * 

256 = 3328 

4 * 

16 = 64 

15 * 

1 = 15 


44367 


$301 B: 


3 * 

4096 = 1 2288 

0 * 

256 = 0 

1 * 

16 = 16 

11 * 

1 = 11 


12315 


$FF: 


15 * 

16 

= 240 

15 * 

1 

= 15 


• 

255 

$DOC: 



13 * 

256 

= 3328 

0 * 

16 

m4. 

= 0 

12 * 

1 

= 12 


% % 

3340 
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$001 F: 


0 

* 

4096 


0 

0 

* 

256 

— 

0 

1 

* 

16 

zz 

16 

15 

* 

1 

— 

15 





31 

$2000: 





2 

* 

4096 


8192 

0 

it 

256 

— 

0 

0 

it 

16 

— 

0 

0 

it 

1 

' — 

0 





8192 

$1 A: 





4 

i 

it 

16 

ss 

16 

10 

* 

1 

= 

10 





26 

$BAD: 





11 

♦ 

256 

— 

2816 

10 

* 

16 

— 

160 

13 

* 

1 

— 

13 





2989 


$0001 
+ $0005 

$0006 

$0ACE 
+ $CAFE 

$D5CC 
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$0BAD 



$F00D 

% 

- 

$FBBA 



$1 A2B 



$B2D2 



$CCFD 



17 

17/1 6=1 ,r1 

1/1=1 ,rO 


$1. 

$11 

199 

199/1 6=1 2,r7 

7/1 =7, rO 


$C. 

$C7 

45 

45/1 6=2, rl 3 

13/1=13, rO 

$.. 

$2. 

$2D 

212 

21 2/1 6=1 3, r4 

4/1 =4,r0 


$D. 

$D4 

87 

87/1 6=5, r7 

7/1 =7, rO 


$5. 

$57 

240 

240/1 6=1 5, rO 

0/1 =0,r0 


$F. 

$F0 

3000 

3000/4096=0,r3000 

3000/256=1 1,r1 84 

$.... 

$0... 

$0B.. 


184/16=1 1,r8 

8/1 =8, rO 

* 

$OBB.. 

$0BB8 

27841 

27841 /4096=6,r3265 

3265/256=1 2, r193 

$ 

$6... 

$6C.. 


193/1 6=1 2, rl 

1/1=1, rO 


$6CC. 

$6CC1 
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1.4. 


3818 

$.... 

381 8/4096=0, r381 8 
$0... 

234/1 6=1 4, rIO 
$0EE. 

381 8/256=1 4, r234 
$0E.. 

1 0/1 =1 0,r0 
$OEEA 

17 

— 

%000 1 000 1 = 

$11 

• 

199 

• 

%1 10001 11 = 

$C7 


45 

— 

%00101 101 = 

$2D 


212 


%1 1010100 = 

$D4 


87 

= 

%010101 1 1 = 

$57 


240 

— 

%1 1 1 1 0000 = 

$F0 


3000 

= 

%000010111011 

1000 

$0BB8 

27841 

= 

%01 101 1001 1000001 

$6CC1 

3818 


%00001 11011101010 

$OEEA 



-4 

* 


-25 

-$0019 

$FFE7 

65511 

-4000 

-$OFAO 

$F060 

61536 

-3 

-$0003 

$FFFD 

65533 

-593 

-$0250 

$FDBO 

64944 

-24000 

-$5DC0 

$A240 

41536 

-1701 

-$06A5 

$F95B 

63835 

-94 

-$005 E 

$FFA2 

65442 

-9 

-$0009 

$FFF7 

65527 
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2 . 1 . 


1000:18 AD 00 09 6D 02 09 8D 

1008:04 09 AD 01 09 6D 03 09 

1010:84 05 09 00 

0900:40 3D FA 00 


2.2. 0855: 18 AD 45 

0858:08 6D 47 08 8D 49 08 AD 

0860:46 08 6D 48 08 8D 4A 08 

0868:00 

0845:9 A 01 04 F0 


2.3. 2999:18 AD FA 25 6D FC 25 

29A0:8D FE 25 AD FB 25 6D FD 

29A8:25 8D FF 25 00 

25FA:03 F9 87 OD 


5.1. Using the program from Listing 5.1, we get the following 
results: 

$000000 $ABCDEF $123456 
- $000001 - $123456 - $ABCDEF 


$FFFFFF $999999 $666667 


5.2. Using the program from Listing 5.2, we get the following 
results: 


Input 

Result 

$0000 

$0001 

$0001 

$0002 

$000F 

$0010 

$00 FF 

$0100 

$0100 

$0101 

$FFFF 

$0000 


5.3. Using the program from Listing 5.3, we get the following 
results: 

• 6 

Input Output 

$0003 $0002 

$FFFF $FFFE 

$0A91 $0A90 

$FD00 $FCFF 


5.4. See Listing 5.4 for the solution. 

5.5. See Listing 5.5 for the program. The reason that the program 
in Listing B.4 works with a zero as input is that this is a multiplication 
by 65536. Whenever you multiply by a power of 2, you clear the 
rightmost bits. Think about it: if you multiply any number by 2, it 
ends up even, right? What's special about even numbers? In binary 
form, the rightmost bit is 0! 65536 is 2 raised to the 16, so the 
rightmost 1 6 bits get set to 0: this gives a final answer of zero, also. 


6.1. See Listing 6.1 for the solution 

6.2. Problem and solutions. 


1) 

LDA 

$2000, X 

where X contains $1 D 

($201 D) 

2) 

STA 

$A7,X 

where X contains $43 

(SEA) 


STA 

$A7,X 

where X contains $6F 

($16) 


STA 

$00A7,X 

where X contains $6F 

($0116) 

3) 

ADC 

$DFAC,Y 

where Y contains $AB 

($E057) 

4) 

s 

SBC 

$01 FB,X 

where X contains $F8 

($02 F3) 

5) 

LDX 

$14,Y 

where Y contains $B2 

(SC6) 


LDX 

SHY 

where Y contains $FD 

($11) 


LDX 

$0014, Y 

where Y contains $FD 

($0111) 
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6) 

STY 

$08 ,X 

where X contains $0F 

($17) 


STY 

$08, X 

where X contains $F9 

($01) 

7) 

DEC 

$A003,X 

where X contains $D4 

($A0D7) 

8) 

LDY 

$100F,X 

where X contains $15 

($1024) 

9) 

INC 

$C0,X 

where X contains $2E 

($EE) 


INC 

$C0,X 

where X contains $E7 

($A7) 


INC 

$00C0,X 

where X contains $E7 

($01 A7) 

10) 

SIX 

$DA,Y 

where Y contains $13 

($ED) 


STX 

$DA,Y 

where Y contains $9E 

($78) 

11) 

LDA 

$E1,X 

where X contains $1 E 

($FF) 


LDA 

$E1,X 

where X contains $ED 

($CE) 


LDA 

$00E1 ,X 

where X contains $ED 

($01 CE) 

12) 

STA 

$3FF2,Y 

where Y contains $AF 

($40A1) 

13) 

ADC 

$09, X 

where X contains $8E 

($97) 


ADC 

$09, X 

where X contains $FB 

($04) 


ADC 

$0009, X 

where X contains $FB 

($0104) 

14) 

SBC 

$CB,X 

where X contains $19 

($E4) 


SBC 

$CB,X 

where X contains $D7 

($A2) 


SBC 

$00CB,X 

where X contains $D7 

($01 A2) 

15) 

LDX 

$4CD0,Y 

where Y contains $3F 

($4 DOF) 

16) 

DEC 

$7F,X 

where X contains $5C 

($DB) 


DEC 

$7F,X 

where X contains $98 

($17) 


DEC 

$007F,X 

where X contains $98 

($0117) 

17) 

LDY 

$B1,X 

where X contains $34 

($E5) 


LDY 

$B1,X 

where X contains $D0 

($81) 


LDY 

$00B1,X 

where X contains $D0 

($0181) 

18) 

INC 

$0A14,X 

where X contains $E9 

($0AFD) 
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19) 

LDA 

$E0C8,Y 

6 

where Y contains $F4 

($E1BC) 

20) 

STA 

$0AAA,X 

where X contains $9D 

($0B47) 

21) 

ADC 

$070C,X 

where X contains $1 A 

($0726) 

22) 

SBC 

$320D,Y 

where Y contains $53 

($3260) 


7.1. 


1. $0286 6. $14A5 11. $E46D 16. $B27F 

2. $89E8 7. $B4EE 12. $37F3 17. $EE4F 

3. $8014 8. $1ABC 13. $C017 18. $9A0C 

4. $FE6A 9. $2BF2 14. $00F1 19. $031 B 

5. $4F0C 10. $7B94 15. $D168 20. $C477 


7.2 See Listing 7.2 for the solution. 


8.1 See Listing 8.1 for the solution. 


8.2 See Listing 8.2 for the solution. 

If the second number is 127 or greater, the stack gets 
completely filled up by the various subroutine calls, so that the older 
return addresses get lost. 


9.1 See Listing 9.1 for the solution. 


9.2 See Listing 9.2 for the solution. 

10.1 SPNUM prints -34, not -00034. It prints numbers in the range 
-32768 to 32767. 


10.2 See Listing 10.2 for the solution. Remember to add the 
libraries! 



10.3 See Listing 10.3 for the solution. The solution to 10.2 is 
included, also. 

* * . - * " r 

* • " • m 

9 • m 

9 • * • • m 

10.4 See Listing 10.4 for the solution. Notice how small 
refinements in a simple program can develop the program in 
manageable steps. 


10.5 See Listing 10.5 for the solution. The SWNUM subroutine in 
Listing 10.5 can be added to your program from problem 10.4. 


1 0.6 See Listing 1 0.6 for the solution. 


10.7 See Listing 10.7 for the solution. 


11.1 See Listing 11.1 for the solution. 


1 1 .2 See Listing 1 1 .2 for the solution. 
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] 

ORCA/EZ 1.0 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 


0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0801 

0804 

0807 

080A 

080D 

0810 

0813 

0814 


PRINTER ON 

PROG1 . OBJ , V100 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


LISTING 3. A 

SECTION 3*2 EXAMPLE PROGRAM 

A 

THIS PROGRAM DEMONSTRATES THE USE 
OF EQUATES WHEN ADDING 2 TW0-BYTE 
NUMBERS. 


INPUTS: 

NUM1 

NUM2 

OUTPUTS: 

NUM3 


FIRST NUMBER TO ADD 
SECOND NUMBER TO ADD 


- SUM OF NUM1 AND NUM2 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


**************************************** 



* 

PROG1 

START 




NUM1 

EQU 

$2000 

FIRST NUMBER TO ADD 


NUM2 

EQU 

$2002 

SECOND NUMBER TO 


i 

• 



ADD 


NUM3 

EQU 

$2004 

SUM 

18 


CLC 


CLEAR CARRY 

AD0020 


LDA 

NUM1 

ADD THE LOW BYTES 

6D0220 


ADC 

NUM2 


8D0420 


STA 

NUM3 


AD0120 


LDA 

NUM1+1 

ADD THE HIGH BYTES 

6D0320 


ADC 

NUM2+1 


8D0520 


STA 

NUM3+1 


00 


BRK 


QUIT 


1 

END 




Local Symbol Table 


NUM1 


2000 NUM2 


2002 NUM3 


2004 


Global Symbol Table 


PROG1 


0800 











m • m 9 m 

• 9 

ORC-A/EZ 1.0 


0001 

0800 

s 

* 


PRINTER ON 

0002 

0800 

- 



KEEP 

PR0B5. 1 • OBJ , VI 00 

0003 

0800 

- 

**************************************** 

0004 

0800 


* 


% 

* 

0005 

0800 


* 

LISTING 5 

. 1 * 

0006 

0800 

• 

* 



* 

0007 

0800 

• 

* 

SOLUTION 

TO PROBLEM 5.1 * 

0008 

0800 

• 

* 


• 

* 

0009 

0800 


* 

THIS PROGRAM DOES A THREE-BYTE * 

0010 

% _ 

0800 


* 

INTEGER SUBTRACTION * 

• • _ 

0011 

0800 

• 

* 



* 

0012 

0800 


* 

INPUTS: 

* 

. % 

0013 

0800 


* 


NUM1 

- NUMBER TO SUBTRACT FROM * 

0014 

0800 


* 


NUM2 

- NUMBER TO SUBTRACT * 

0015 

0800 


* 



* 

0016 

0800 


* 

• 

outputs: 

• 

* 

0017 

0800 


* 


NUM3 

- NUM1-NUM2 * 

0018 

0800 


* 


m. 

* 

9 

0019 

0800 


**************************************** 

0020 

0800 


* 




0021 

0800 


PR0B51 

START 

. 0022 

0800 


NUM1 

EGU 

$2000 NUMBER TO SUBTRACT 

0023 

0800 


1 

• 



FROM 

0024 

0800 

• 

NUM2 

EQU 

$2003 NUMBER TO SUBTRACT 

0025 

0800 


NUM3 

EQU 

$2006 RESULT 

0026 

0800 






0027 

0800 

38 



SEC 

SET BORROW FLAG 

0028 

0801 

AD0020 



LDA 

NUM1 SUBTRACT LOW BYTE 

0029 

0804 

ED0320 



SBC 

NUM2 

0030 

0807 

8D0620 



STA 

NUM3 

0031 

080A 

AD0120 



LDA 

NUM1+1 SUBTRACT MID BYTE 

0032 

080D 

ED0420 



SBC 

NUM2+1 

0033 

0810 

8D0720 



STA 

NUM3+1 

0034 

0B13 

AD0220 



LDA 

NUM1+2 SUBTRACT HIGH BYTE 

0035 

0816 

ED0520 



SBC 

NUM2+2 

• 

0036 

0819 

8D0820 



STA 

NUM3+2 

0037 

08 1C 

00 



BRK 


0038 

08 ID 




END 

• • 


Local Symbol Table 

• a 

NUM1 2000 NUM2 2003 NUM3 2006 


Global Symbol Table 

PR0B51 0800 

• ^ • 


'i 


0RCA/E2 1.0 


0001 

0800 



PRINTER ON 

* 

i 

0002 

* 

0800 



KEEP 

PR0B5. 2. OBJ 

- 

0003 

0800 


**************************************** 

0004 

0800 


* 


* 

0 

* 

* 

0005 

0800 


* 

LISTING 5 

.2 

* 

0006 

0800 


* 

• 

- 

* 

0007 

0800 


* 

SOLUTION 

TO PROBLEM 5.2 

* 

0008 

0800 


* 



* 

0009 

0800 

* 

* 

THIS PROGRAM INCREMENTS A TWO-BYTE 

* 

0010 

0800 


* 

INTEGER 


* 

0011 

0800 


* 



* 

0012 

0800 


* 

inputs: 

% 

* 

0013 

0800 

0 

* 

NUM1 

- NUMBER TO INCREMENT 

* 

0014 

0800 


* 



* 

0015 

0800 


* 

outputs: 

• 

m 

* 

0016 

0800 


* 

NUM1 

- NUM1+1 

• 

* 

0017 

0800 


* 



* 

0018 

0800 


**************************************** 

0019 

0800 


* 

i 


• 

0020 

0800 


PR0B52 START 



0021 

0800 


NUM1 EQU 

$2000 NUMBER TO INCREMENT 

0022 

0800 





• 

0023 

0800 

EE0020 


INC 

NUM1 

■ 

0024 

0803 

D003 


BNE 

LB1 

. 

0025 

0805 

EE0120 


INC 

NUMl+l 


0026 

0808 

00 

LB1 

BRK 



0027 

0809 



END 


• 


Local Symbol Table 

LB1 0808 NUM1 2000 


Global Symbol Table 
PR0B52 0800 



ORCA/EZ 1.0 


0001 

0800 



PRINTER ON 


0002 

0800 


- 

KEEP 

PR0B5. 3. OBJ 


0003 

0800 

• 

**************************************** 

0004 

0800 


* 


- 

* 

0005 

0800 


* 

LISTING 5 

. 3 

* 

0006 

0800 


* 


• 

* 

0007 

0800 


* 

SOLUTION 

TO PROBLEM 5.3 

* 

0008 

0800 


* 



* 

0009 

0800 


* 

THIS PROGRAM DECREMENTS A TWO-BYTE 

* 

00 1 0 

0800 


* 

INTEGER 

• • 

* 

0011 

0800 


* 



* 

0012 

0800 


* 

INPUTS: 

- * . 

* 

0013 

0800 


* 

NUM1 

- NUMBER TO DECREMENT 

* 

0014 

0800 


* 

* 


* 

0015 

0800 


* 

OUTPUTS: 


* 

0016 

0800 


* 

NUM1 

- NUM1-1 

* 

0017 

0800 


* 



• * 

0018 

0800 


**************************************** 

0019 

0800 


* 




0020 

0800 


PR0B53 START 

V 


0021 

0800 


NUM1 EQU 

$2000 NUMBER TO DECREMENT 

0022 

0800 






0023 

0800 

AD0020 

• 

LDA 

NUM1 


0024 

0803 

D003 


BNE 

LB1 


0025 

0805 

CE0120 


. DEC 

NUM1+1 


0026 

0808 

CE0020 

LB1 

DEC 

NUM1 


0027 

080B 

00 


BRK 

. 

• 

0028 

080C 



END 




Local Symbol Table 

LB1 0808 NUM1 2000 


Global Symbol Table 
PRQB53 0800 


r 



ORCA/EZ 1.0 


0001 

0800 


PRINTER ON 

m _ 

0002 

s * 

0800 

* 

KEEP PR0B5. 4. OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 

. » 

w 

* 

0005 

0800 

* 

LISTING 5.4 

* 

0006 

0800 

* 

• % • 

* 

0007 

0800 

* 

SOLUTION TO PROBLEM 5.4 

* 

0008 

0800 

* 

* * t 

* 

0009 

0800 

* 

THIS PROGRAM MULTIPLIES TWO 

4 

* 

0010 

0800 

* 

POSITIVE NUMBERS. 

* 

0011 

0800 

* 


* 

0012 

0800 

* 

inputs: 

* 

0013 

0800 

* 

NUM1 - FIRST ARGUMENT 

* 

0014 

0800 

* 

NUM2 - SECOND ARGUMENT 

* 

0015 

0800 

* 

• 

* 

0016 

0800 

* 

outputs: 

* 

0017 

0800 

* 

NUM3 - NUM1*NUM2 

* 

0018 

0800 

* 

• 

* 


0019 0800 **************************************** 

0020 0800 * 

0021 0800 PRGB54 START 


0022 

0800 


NUM1 

EQU 

$2000 

FIRST NUMBER 

0023 

0800 

. 

NUM2 

EGU 

$2002 

SECOND NUMBER 

0024 

0800 


NUM3 

EQU 

$2004 

RESULT 

0025 

0800 





* 

0026 

0800 

A900 


LDA 

#0 

NUM3 = 0 

0027 

0B02 

8D0420 


STA 

NUM3 


0028 

am 

0805 

8D0520 

• 

STA 

NUM3+1 

A ( 

0029 

0B0B 

18 

TOP 

CLC 


NUM3 = NUM3+NUM1 

0030 

0809 

AD0020 


LDA 

NUM1 

... •* •. 

0031 

080C 

6D0420 


ADC 

NUM3 

• 

0032 

0S0F 

8D0420 


STA 

NUM3 

. 

0033 

0812 

AD0120 


LDA 

NUM 1+1 


0034 

0815 

6D0520 


ADC 

NUM3+1 


0035 

0818 

8D0520 


STA 

NUM3+ 1 

ft 

0036 

08 IB 

AD0220 


LDA 

NUM2 

NUM2 = NUM2-1 

0037 

08 IE 

D003 


BNE 

LB1 

' 

0038 

0820 

CE0320 


DEC 

NUM2+1 

. • 

0039 

0823 

CE0220 

LB1 

DEC 

NUM2 


0040 

0826 

• 

AD0220 


LDA 

NUM2 

I F NUM2 > 0 THEN 

0041 

0829 

D0DD 


BNE 

TOP 

GOTO TOP 

0042 

082B 

AD0320 


. LDA 

NUM2+1 

• 

^ • 

0043 

082E 

D0D8 


BNE 

TOP 

4 

• • 

0044 

0830 

00 


BRK 


• * 

4 

0045 

0831 


• 

END 


* % • 


► 


Local Symbol Table 

LB1 0823 NUM1 2000 NUM2 2002 NUM3 

TOP 0808 


Global Symbol Table 


PR0B54 


0800 



— *v 


ORCA/EZ 1.0 


0001 

0800 

... -- 

9 

PRINTER ON 

• • • . 

* • • 9 m 


0002 

0800 

* 

* * » 

' 

KEEP 

PR0B5 * 5 a 

OBJ 

9 


0003 

0800 

- 

**************************************** 

0004 

0800 


* 



• . • 

• 9 m 

* 

0005 

0800 

9 

% 

* LISTING 5 

i. 5 

& 

* 

0006 

0800 

• 

► 

9 

* 


• m 

9 

9 

* 

0007 

0800 


* SOLUTION 

TO PROBLEM 5.5 

* 

0008 

0800 

• 

* 


• 


* 

__ 0009 

0800 

« 

* THIS PROGRAM MULTIPLIES TWO 

* 

0010 

0800 

9 

• 

* POSITIVE 

NUMBERS. 

A SPECIAL CHECK 

* 

0011 

0800 

9 

* IS 

MADE FOR A SECOND NUMBER OF 0 

• 

* 

0012 

0800 

- 

* 

_ • 


• • 9 

. • t 9 

* 

0013 

0800 

% 

* inputs: 



* 

- 0014 

0800 

% 

9 _ 

* 

NUM1 

- FIRST 

ARGUMENT 

* 

0015 

0800 

• * * 

* 

NUM2 

- SECOND 

ARGUMENT 

• _ _ • 

* 

0016 

0800 


* 




* 

0017 

0800 

• 

* outputs: 

• 

• 

• 

* 

0018 

0800 


* 

NUM3 

- NUM1*NUM2 

* 

A 

- 0019 

0800 


* 


• • 

• 

* 

0020 

0800 


**************************************** 

• 9 

0021 

0800 


* 

. 

• 

• • t 


0022 

0800 


PR0B55 

START 



0023 

0800 

. 

NUM1 

EQU 

$2000 

FIRST NUMBER 

• * 


0024 

0800 


NUM2 

EQU 

$2002 

SECOND NUMBER 


0025 

0800 


NUM3 

EQU 

$2004 

RESULT 


0026 

0800 




• 

• 

■ 


0027 

0800 

A900 

• 

LDA 

#0 

NUM3 = 0 

■ 

0028 

0802 

8D0420 

# 

STA 

NUM3 



: 0029 

0805 

800520 

• 

STA 

NUM3+1 

• • i • 

• 

0030 

0808 

AD0220 


LDA 

NUM2 

IF NUM2 =* 0, QUIT 


0031 

080B 

0005 


BNE 

TOP 



0032 

0600 

AD0320 


LDA 

NUM2+1 



_ 0033 

0810 

F028 


BEQ 

QUIT 

• • • • 

• • 

* 

0034 

0812 

18 

TOP 

CLC 

• 

NUM3 =* NUM3+NUM1 


0035 

0813 

AD0020 


LDA 

NUM1 

• 


0036 

0816 

600420 


ADC 

NUM3 

• % • 


0037 

0819 

800420 

• 

STA 

NUM3 

. • 

- 

— 0038 

081C 

AD0120 

• • • 

• 

LDA 

NUM1+1 

A 


0039 

08 IF 

600520 


ADC 

NUM3+1 

. « * 

• 


0040 

0822 

800520 


STA 

NUM3+1 

’■ 

* 

0041 

0825 

AD0220 

• *. 

LDA 

NUM2 

NUM2 * NUM2- 1 


0042 

0828 

0003 


BNE 

LB1 

• • • 

. « 9 


- 0043 

082 A 

CE0320 


DEC 

NUM2+1 

A * 

• » 9 

* * 

0044 

0820 

CE0220 

LB1 

DEC 

NUM2 

• • * * * ' . 


0045 

0830 

AD0220 


LDA 

NUM2 

IF NUM2 > 0 THEN 

* 

0046 

0833 

D0DO 

- 

BNE 

TOP 

GOTO TOP 


0047 

0835 

AD0320 

_ % 

9 

• • • 

9 

LDA 

NUM2+1 

* 


~ 0048 

0838 

0008 

* 

BNE 

TOP 

• 

• • • 

#■ 

9 


0049 

083 A 

00 

QUIT 

BRK 

m Vs 

• ' # “ • 


0050 

083B 

9 


END 

V 

• 



Local Symbol Table 

- ' « * • * * • • • **•*"*• " * 

LB1 0820 NUM1 2000 NUM2 2002 NUM3 2004 

QUIT 083A TOP 0812 

- - ■ 



Global Symbol Tabl 


0800 


*• * 



ORCA/EZ 1.0 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 


0800 

0800 

0800 


0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 


.00 1 6 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 


0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 


0800 

0800 

0800 

0800 

0802 

0805 

0808 

0809 

080B 

080C 


A204 

BD0420 

9D1120 

CA 

10F7 

00 


PRINTER ON 

KEEP PR0B6 . 1 . OBJ , V 1 00 
**************************************** 


* 

- 

. 

* 

* 

LISTING 6.1 

* * • 

* 

* 



* 

* 

SOLUTION TO 

PROBLEM 6.1 

* 

* 


♦ 

* 

* 

THIS PROGRAM MOVES 5 BYTES 

* 

* 


• • 

* 

* 

inputs: 

• 

* 

* 

ADRl - 

SOURCE ADDRESS 

* 

* 

ADR2 - 

DESTINATION ADDRESS 

* 

* 

LENGTH 

- NUMBER OF BYTES TO BE 

* 

* 


MOVED 

* 

* 



* 

* 

outputs: 

ft 

* 

* 

ADR2 - 

9 LENGTH’ BYTES FROM ADRl 

* 

* 



* 


**************************************** 

* 


PR0B61 

START 



ADRl 

EQU 

$2004 

SOURCE 

ADR2 

EQU. 

$2011 

DESTINATION 

LENGTH 

EQU 

5 

NUMBER OF BYTES TO 

i 

• 



MOVE 


LDX 

#LENGTH- 

-1 

LB1 

LDA 

ADR1,X 

• 


STA 

ADR2, X 



DEX 




BPL 

LB1 

9 


BRK 




END 


• 


Local Symbol Table 

ADRl 2004 ADR2 2011 LB1 0802 LEN6TH 

• ' • 
ft • * 

Global Symbol Table 

• • • ft * ( 4 

PR0B61 0800 


0005 



ORCA/EZ 1.0 


0001 

0002 

0005 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0802 
0804 
0806 
0808 
080A 
080C 
080E 
0810 
0812 
0814 
0816 
0818 
0818 
0818 
0818 
08 1 A 


A900 

8500 
A920 

8501 
A900 

8502 
A990 

8503 
A900 

8504 
A910 


A000 

B100 


PRINTER ON 

KEEP PR0B7. 2. OBJ, VI 00 
**************************************** 


* * 

* LISTING 7.2 * 

* * 

* SOLUTION TO PROBLEM 7.2 * 

* * 

* SLMQV - LONG MOVE * 

* THIS SUBROUTINE MOVES AN * 

* ARBITRARILY LARGE NUMBER * 

* OF BYTES * 

* * 

* INPUTS: * 

* SOURCE - STARTING ADDRESS OF * 

* BYTES TO BE MOVED * 

* DEST - ADDRESS TO MOVE BYTES TO * 

* BYTES - NUMBER OF BYTES TO MOVE * 

* * 


**************************************** 

• • * 0 1 . i 

* 

SLMOV START 

• _ • • 

» 

» 

5 ZERO PAGE EQUATES FOR INDIRECT 
5 ADDRESSING 
5 


ADDR1 

EQU 

$0 

SOURCE ADDRESS 

ADDR2 

EQU 

$2 

DESTINATION ADDRESS 

LOOP 

EQU 

$4 

LOOP COUNTER 


5 

; ACTUAL ADDRESSES TO BE STORED AND 

5 USED 

* 

* 

SOURCE EQU $2000 SOURCE ADDRESS 

DEST EQU $9000 DESTINATION ADDRESS 

BYTES EQU $1000 NUMBER OF BYTES TO 

! MOVE 

$ 

5 INITITALIZE THE INDIRECT ADDRESSES AND 

5 LOOP COUNTER 

• • • • 

J 

LDA #< SOURCE SET SOURCE ADDRESS 

STA ADDR1 

LDA #>SOURCE 

STA ADDR1+1 

LDA #< DEST SET DEST ADDRESS 

STA ADDR2 

LDA #>DEST 

STA ; ADDR2+1 

LDA #< BYTES SET LOOP COUNTER 

STA LOOP 

LDA #>BYTES 

STA LOOP+l 

5 

; MOVE LOOP 

m 

f 

LDY #0 USE Y AS A POINTER 

LB1 LDA (ADDR1) ,Y MOVE ONE BYTE 


0059 

08 1C 

9102 

• 

STA 

< ADDR2 ) 

,Y 

* 

0060 

08 IE 

E600 


INC 

ADDR1 

INC 

SOURCE ADDRESS 

0061 

0820 

D002 

• 

BNE 

LB2 



0062 

0822 

E601 


INC 

ADDR1+1 



0063 

0824 

E602 

LB2 

INC 

ADDR2 

INC 

DEST ADDRESS 

0064 

0826 

D002 


BNE 

LB3 


- 

0065 

0828 

9 

E603 


INC 

ADDR2+1 


- 

0066 

082A 

A504 

LB3 

LDA 

LOOP 

DEC 

LOOP COUNTER 

0067 

082C 

D002 


BNE 

LB4 



0068 

082E 

C605 


DEC 

L00P+1 



0069 

0830 

C604 

LB4 

DEC 

LOOP 



0070 

0832 

D0E6 

» 

BNE 

LB1 

DO NEXT BYTE 

0071 

0834 

A505 


LDA 

LQOP+1 


• 

0072 

0836 

D0E2 


BNE 

LB1 



0073 

0B38 

00 


BRK 




0074 

0839 



END 





Local 

Symbol Table 




• 


ADDR1 

0000 

ADDR2 

0002 

BYTES 

1000 

DEST 

9000 

LB1 

LOOP 

081A 

0004 

LB2 

SOURCE 

0824 

2000 

LB3 

• • 

082A 

LB4 

0830 


Global Symbol Table 


SLMOV 


0800 



ORCA/EZ 1.0 


0001 

0800 




PRINTER ON 


0002 

0800 


- 


KEEP 

PR0B8. 1. 

OBJ, VI 00 

0003 

0800 

4 

**HH************************************* 

0004 

0800 


* 




* 

4 

0005 

0800 

% 

* 

LISTING 8 

. 1 

S • ■ 

* 

0006 

4 

0800 


* 




♦ 

* 

• • f , 

0007 

0800 

4 

* 

SOLUTION 

TO PROBLEM 8.1 * 

0008 

0800 

•* 

* 




* 

0009 

0800 

- — 

• 

* 

THIS PROGRAM MOVES *1000 BYTES FROM * 

0010 

0800 

4 

* 

$2000 TO 

$B000, THEN MOVES $1000 * 

0011 

0800 


* 

BYTES FROM $A000 

TO $9000. IT * 

0012 

0800 


* 

MAKES USE 

OF A SUBROUTINE TO DO THE * 

0013 

0800 

4 

* 

MOVES. 


* 

0014 

0800 

% 

* 





0015 

0800 


* 

inputs: 


* 

0016 

0800 


* 


SRC1 

- FIRST 

SOURCE ADDRESS * 

0017 

0800 


# 


SRC2 

- SECOND 

SOURCE ADDRESS * 

0018 

0800 


* 


DES1 

- FIRST 

DEST ADDRESS * 

0019 

0800 


* 


. DES2 

- SECOND 

DEST ADDRESS * 

0020 

0800 


* 


LEN - 

NUMBER 

OF BYTES TO MOVE * 

0021 

0800 


* 




* 

0022 

0800 


**************************************** 

• 

0023 

0800 


# 





0024 

0800 


P81 

• 

START 


• 

0025 

0800 


ADDR1 

GEQU 

$10 

SOURCE ADDRESS 

0026 

0800 


ADDR2 

GEQU 

$12 

DESTINATION ADDRESS 

0027 

0800 


LOOP 

GEQU 

$14 

NUMBER OF BYTES TO 

0028 

0800 


i 

« 




MOVE 

0029 

0800 


SRC1 

EQU 

$2000 

SOURCE, DESTINATION 

0030 

0800 


SRC2 

EQU 

$B000 

AND LENGTH 

0031 

0800 


DES1 

EQU 

$A000 

4 

0032 

0800 


DES2 

EQU 

$9000 


0033 

0800 


LEN 

EQU 

$ 1 000 


0034 

0800 


■ 

f 





0035 

0800 


m 

3 

DO 

THE FIRST MOVE 

. 

0036 

0800 


3 




. 

0037 

0800 

A900 



LDA 

#<SRC1 

SET THE SOURCE ADDR 

0038 

0602 

8510 



STA 

ADDR 1 

• 

0039 

0804 

A920 



LDA 

# >SRC 1 


0040 

0806 

8511 



STA 

ADDR 1+1 

4 

0041 

0808 

A900 



LDA 

#<DES1 

SET THE DESTINATION 

0042 

080A 

8512 



STA 

ADDR2 

ADDRESS 

0043 

080C 

A9A0 



LDA 

#>DES1 


0044 

080E 

8513 



STA 

ADDR2+1 

* 

0045 

0810 

A900 



LDA 

#<LEN 

SET THE MOVE LENGTH 

0046 

0812 

8514 



STA 

LOOP 

. 

0047 

0814 

A910 



LDA 

# >LEN 


0048 

0816 

8515 


• 

STA 

LOQP+1 

- 

0049 

0818 

203708 


• 

JSR 

SLMOV 

DO THE MOVE 

0050 

0818 

• 

• 

3 




- 

0051 

081B 


• 

DO 

THE SECOND MOVE 

0052 

081B 


• 

3 




4 

0053 

0818 

A900 

• 


LDA 

#< SRC2 

SET THE SOURCE ADDRESS 

0054 

08 ID 

8510 

- 


STA 

ADDR1 

4 

0055 

08 IF 

A9B0 



LDA 

#>SRC2 

4 

4 

* 4 

0056 

0821 

8511 



STA 

ADDR1+1 

. # * % « 

* 4 

0057 

0823 

A900 


% 

LDA 

#<DES2 

SET THE DESTINATION 

0058 

0825 

8512 

- 

k 

STA 

ADDR2 

ADDRESS 



0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 
0067 


0827 

0829 

082B 

0820 

082F 

0831 

0833 

0836 

0837 


A990 

8513 
A900 

8514 
A910 

8515 
20370 
60 


LDA #>DES2 
STA ADDR2+1 
LDA 4KLEN 
STA LOOP 
LDA #>LEN 
STA LOQP+1 
JSR SLMOV 
RTS 
END 


Local Symbol Table 


DES1 

SRC2 


SET THE MOVE LENGTH 


DO THE MOVE 
RETURN TO O/S 


A000 DES2 
B000 


9000 LEN 


1000 SRC1 


2000 



0068 

0837 







0069 

0837 


**************************************** 

0070 

0837 


* 




* 

0071 

0837 


* SLMOV - 

LONG MOVE 

* 

0072 

0837 


* 


THIS SUBROUTINE MOVES AN 

* 

0073 

0837 


* 


ARBITRARILY LARGE NUMBER OF 

* 

0074 

0837 


* 


BYTES 

* 

0075 

0837 


* 




* 

0076 

0837 


* INPUTS: 



* 

0077 

0837 


* 

ADDR1 

- STARTING ADDRESS OF 

* 

0078 

0837 


* 



BYTES TO BE MOVED 

* 

0079 

0837 


* 

ADDR2 

- ADDRESS TO MOVE BYTES 

* 

0080 

0837 


* 



TO 

* 

0081 

0837 


* 

LOOP - 

- NUMBER OF BYTES TO MOVE 

* 

0082 

0837 


* 




* 

0083 

0837 


**************************************** 

0084 

0837 


* 





0085 

0837 


SLMOV 

START 



0086 

0837 







0087 

0837 

A000 


LDY 


#0 USE Y AS A POINTER 

0088 

0839 

Bi 10 

LB1 

LDA 


(ADDR1 ) , Y MOVE ONE BYTE 


0089 

083B 

9112 


STA 


(ADDR2) , Y 


0090 

083D 

E610 


INC 


ADDR1 INC SOURCE ADDRESS 

0091 

083F 

D002 


BNE 


LB2 


0092 

0841 

E61 1 


INC 


ADDR1+1 


0093 

0843 

E612 

LB2 

INC 


ADDR2 INC DEST ADDRESS 


0094 

0845 

0002 


BNE 


LB3 


0095 

0847 

E613 


INC 


ADDR2+1 


0096 

0849 

A51 4 

LB3 

LOA 


LOOP DEC LOOP COUNTER 


0097 

084B 

0002 


BNE 


LB4 


0098 

084D 

C615 


DEC 


LOOP+1 


0099 

084F 

C614 

LB4 

DEC 


LOOP 


0100 

0851 

D0E6 


BNE 


LB1 DO NEXT BYTE 


0101 

0853 

AS 15 

• 

LDA 


LOOP+1 


0102 

0855 

O0E2 


BNE 


LB1 


0103 

0857 

60 


RTS 




0104 

0858 



END 





Local Symbol Table 

LB1 0839 LB2 0843 LB3 0849 LB4 084F 

Global Symbol Table 

ADDR1 0010 ADDR2 0012 LOOP 0014 P81 0800 

SLMOV 0837 







V 


. . t 

• m f 

ORCA/EZ 1.0 


0001 

0800 


PRINTER ON 


0002 

0800 


KEEP PR0B8 . 2 . OBJ , V 1 00 

- 

0003 

0800 

**************************************** 

0004 

0800 

* 


* 

0005 

0800 

* 

LISTING 8.2 

* 

0006 

0800 

* 

• * , f 

* 

■ a # * ft * • 

* 

0007 

0800 

* 

SOLUTION TO PROBLEM 8.2 

* 

0008 

0800 

* 

• • 9 

ft 

* 

0009 

0800 

* 

THIS PROGRAM MULTIPLIES TWO NUMBERS 

* 

0010 

0800 

* 

USING RECURSION. THE SECOND NUMBER 

% 

* 

0011 

0800 

* 

MUST BE LESS THAN 127. 

* 

0012 

0800 

* 

• % _ * 

• • * " m % 

% 

* 

0013 

0800 

* 

inputs: 

# 

0014 

0800 

* 

NUM1 - FIRST FACTOR 

* 

0015 

0800 

* 

NUM2 - SECOND FACTOR 

* 

0016 

0600 

* 

• • » 

• * • * • * • 

. V * * 

* 

0017 

0800 

* 

OUTPUT: 

* 

0018 

0800 

_ • 

* 

NUM3 - NUM1*NUM2 

* 

0019 

0800 

* 

• _ 

* 

0020 

0800 

**************************************** 


0021 0800 * 

0022 0800 P82 START 

0023 0800 NUM1 EQU $2000 

0024 0800 NUM2 EQU $2002 

0025 0800 NUM3 EQU $2004 

0026 0800 ; 

0027 0800 ; MAIN PROGRAM 


0028 

0800 


5 




0029 

0800 

A900 


LDA 

#0 

NUM3 » 0 

0030 

0802 

8D0420 


STA 

NUM3 


0031 

0805 

8D0520 

• 

STA 

NUM3+1 


0032 

0808 

200C08 


JSR 

MULT 


0033 

080B 

60 

• 

RTS 



0034 

080C 


• 

> 


• • 


0035 

080C 


5 RECURSIVE 

MULTIPLY SUBROUTINE 

0036 

080C 


■ 

* 



• • • 

0037 

080C 

AD0220 

MULT 

LDA 

NUM2 

QUIT IF NUM2 » 0 

0038 

080F 

D005 


BNE 

ML1 

• 

0039 

0811 

AD0320 


LDA 

NUM2+1 

• 

0040 

0814 

F021 


BEQ 

ML 3 

• 

0041 

0816 

18 

ML1 

CLC 


NUM3 = NUM3+NUM1 

0042 

0817 

AD0020 


LDA 

NUM1 

• 

0043 

081 A 

6D0420 

# 

ADC 

NUM3 

• 

0044 

08 ID 

8D0420 


STA 

NUM3 


0045 

0820 

AD0120 


LDA 

NUM1+1 

* 

0046 

0823 

6D0520 


ADC 

NUM3+1 

$ 

0047 

0826 

8 D 05 20 


STA 

NUM3+1 

' 

0048 

0829 

AD0220 


LDA 

NUM2 

NUM2 + NUM2-1 

0049 

082C 

D003 


BNE 

ML2 

. . 

0050 

082E 

CE0320 


DEC 

NUM2+1 

••• . ; 

0051 

0831 

CE0220 

ML2 

DEC 

NUM2 

& 

0052 

0834 

200C08 

- 

JSR 

MULT 

RECURSE 

0053 

0837 

60 

ML3 

RTS 

- * 

* 

0054 

0838 

' 


END 

• 

ft 


Local Symbol Table 



ML1 
NUM1 


Global 


0816 ML2 0831 ML3 0837 

2000 NUM2 2002 NUM3 2004 


Symbol Table 


MULT 080C 

* 


PB2 


0800 



ORCA/EZ 1.0 


0001 

0800 


PRINTER ON 


0002 

0800 


KEEP 

PR0B9. l.OBJ,V100 


0003 

0800 

**************************************** 

0004 

0800 

* 

. * • 

* 

* 

0005 

0800 

* 

LISTING 9 

. 1 

* 

0006 

0800 

* 


m 9 

* 

0007 

0800 

* 

SOLUTION 

TO PROBLEM 9.1 

* 

.0008 

0800 

* 

• 

% 

* 

0009 

0800 

* 

THIS PROGRAM WRITES A MESSAGE TO 

* 

0010 

0800 

* 

THE CRT. 

IT USES SRITE FROM 

9 

* 

0011 

0800 

* 

SUBS. UTIL I TY2 

* 

0012 

0800 

* 


* 

* 

0013 

0800 

* 

INPUT: 

• 

* 

0014 

0800 

* ' 

MSG1 

- MESSAGE TO BE WRITTEN TO 

• 

* 

0015 

0800 

* 


SCREEN 

* 

0016 

0800 

* 


•• 

* 

0017 

0800 

**************************************** 

0018 

0800 

* 




0019 

0800 

P91 

START 



0020 

0800 

CHRAD GEDU 

*FE CHARACTER ADDRESS 


0021 

0800 





0022 

0800 A908 


LDA 

# >MSG 1 


0023 

0802 A20A 


LDX 

#<MSG1 


0024 

0804 A012 


LDY 

#MSG2-MSG1 


0025 

0806 201C08 


JSR 

SRITE 


0026 

0809 60 


RTS 

• 


0027 

080A 



■ • 


0028 

080A D9CFD5 

MSG1 DC 

C' YOUR MESSAGE HERE. * 


0029 

08 1C 

MSG2 DS 

0 


0030 

08 1C 


END 




Local Symbol Table 

MSG1 080 A MSG2 08 1C 



* 

• * — 

0031 

% 

* * 

% 

* 

08 1C 

* 

% 

- 

* 

* 

* 

• ♦ 

* 

• * 

• » 

* “ 

• 

m V 

• V 

0032 

081C 

**************************************** 

0033 

081C 

• 

* 

- 

m •> 

* 

0034 

081C 

* SRITE - 

WRITE A LINE 

* 

0035 

08 1C 

* 


* 

* 

0036 

* 

081C 

* BY 

MIKE 

WESTERFIELD 

♦ 

0037 

081C 

* COPYRIGHT <C> SEPTEMBER 1984 

* 

0038 

08 1C 

* BY 

THE BYTE WORKS, INC. 

* 

0039 

081C 

% 

* 



% 

* 

0040 

081C 

* inputs: 

*• - 

* 

004 1 

08 1C 

* 

A - 

HIGH BYTE OF CHARACTER 

• 4 

* 

0042 

08 1C 

* 


ADDRESS 

* 

0043 

08 1C 

* 

X - 

LOW BYTE OF CHARACTER 

* 

0044 

08 1C 

* 


ADDRESS 

* 

0045 

08 1C 

* 

Y - 

NUMBER OF CHARACTERS 

* 

0046 

08 1C 

* 


• 

* 

0047 

08 1C 

* outputs: 


* 

0048 

08 1C 

* 

CHARACTERS .TO SCREEN 

* 

0049 

0S1C 

* 



* 

0050 

081C 

* notes: 

• 

* 

0051 

08 1C 

* 

1) ENTRY AT SRITE2 PRINTS THE 

* 

0052 

08 1C 

* 


CHARACTERS WITHOUT A 

* 

0053 

081C 

* 


RETURN AT THE END OF THE 

* 

0054 

08 1C 

* 


LINE. 

* 

0055 

081C 

* 



* 

0056 

08 1C 

**************************************** 

0057 

08 1C 

* 




0058 

081C 

SRITE 

START 

% 

0059 

08 1C 

COUT 

EQU 

*FDED OUTPUT A CHARACTER 

0060 

08 1C 

CROUT 

EQU 

*FD8E OUTPUT A RETURN 


0061 

08 1C 

\ 


• 

■ 

0062 

• 

081C 

5 INIT FOR 

PRINT 


0063 

081C 

• . 

9 




0064 

08 1C 85FF 


STA 

CHRAD+1 SAVE HIGH BYTE AND 

0065 

081E A901 


LDA 

#1 SET RETURN FLAG 

' 

0066 

0820 D004 


BNE 

INI 

• 

• 

0067 

0822 

SRITE2 

ENTRY 

V 

0068 

0822 85FF 


STA 

CHRAD+1 


0069 

0824 A900 

• 

LDA 

#0 


0070 

0826 8D4408 

INI 

STA 

RETFLG 


0071 

0829 86FE 


STX 

CHRAD SAVE LOW BYTE AND 


0072 

0S2B 8C4508 


STY 

CCNT CHARACTER COUNT 


0073 

082E A000 


LDY 

#0 


0074 

0830 

m 

9 


• 


0075 

0830 

; PRINT CHARACTERS 

• .. W 

0076 

0830 

• 

9 


• 


0077 

0830 B1FE 

PCI 

LDA 

(CHRAD), Y 

* 

0078 

0832 20EDFD 


JSR 

COUT 


0079 

0835 C8 


.INY 

• * 


0080 

0836 CE4508 


DEC 

CCNT 

* “ * 

0081 

0839 D0F5 


BNE 

PCI 

- 

0082 

083B 

■ 

9 




0083 

083B 

5 HANDLE RETURN 


0084 

083B 

m 

9 


- 


0085 

* 

083B AD4408 


LDA 

RETFLG 

- 

0086 

083E F003 


BEQ 

RTS 

- 

0087 

0840 208EFD 

- 

JSR 

CROUT 

" 

0088 

0843 60 

RTS 

RTS 



0089 

0844 

■ 

9 




0090 

0844 

* m 

' i » 

* 

5 LOCAL DATA AREAS 

* • 

• s 

• 

• • r 

* 

6 

% 

* 



0031 

081C 

• . 


• ^ * • 

mm 9 • 


0032 

081C 

- 

**************************************** 

0033 

081C 

9 


* 

• 

* 

0034 

081C 

% 

- 

* . 

SRITE - WRITE A LINE 

* 

0035 

081C 

• 

* 

. 

* 

0036 

081C 

- 

* 

BY MIKE WESTERFIELD 

* 

0037 

08 1C 

- 

* 

COPYRIGHT (C) SEPTEMBER 1984 

* 

0038 

08 1C 


* 

BY THE BYTE WORKS , INC. 

* 

0039 

081C 

• 

* 

• • • 

* 

0040 

08 1C 


* 

INPUTS: 

* 

0041 

08 1C 

- 

* 

A - HIGH BYTE OF CHARACTER 

* 

0042 

08 1C 

• 

* 

ADDRESS 

• * • 

* 

0043 

08 1C 


* 

X - LOW BYTE OF CHARACTER 

* 

0044 

081C 

• 

* 

ADDRESS 

* 

0045 

08 1C 


* 

Y - NUMBER OF CHARACTERS 

* 

0046 

08 1C 


• 

* 


* 

0047 

08 1C 


* 

OUTPUTS: 

• 

* 

0048 

08 1C 


* 

CHARACTERS TO SCREEN 

* 

0049 

08 1C 


* 

• 

* 

0050 

081C 

• • 

* 

notes: 

* 

0051 

08 1C 


* 

1) ENTRY AT SRITE2 PRINTS THE 

* 

0052 

081C 


* 

CHARACTERS WITHOUT A 

* 

0053 

081C 


* 

RETURN AT THE END OF THE 

* 

0054 

081C 


* 

LINE. 

• 

* 

0055 

081C 


* 

• • 

* 

0056 

081C 


**************************************** 

0057 

08 1C 

mm m 


* 

* 


0058 

08 1C 


SRITfc SIflKI 


0059 

08 1C 

• 

CQUT EQU SFDED OUTPUT A CHARACTER 

0060 

08 1C 

• 

CROUT EQU *FD8E OUTPUT A RETURN 


0061 

08 1C 

• 

5 

• 


0062 

08 1C 


m 

9 

INIT FOR PRINT 


0063 

08 1C 


• 

9 

• 


0064 

08 1C 

85FF 


. ST A CHRAD+1 SAVE HIGH BYTE AND 

0065 

081E 

A901 


LDA #1 SET RETURN FLAG 


0066 

0820 

D004 


BNE INI 


0067 

0822 


SRITE2 ENTRY 


0068 

0822 

85FF 


ST A CHRAD+1 


0069 

0824 

A900 


LDA #0 


0070 

0826 

8D4408 

INI ST A RETFLG 


0071 

0829 

86FE 


STX CHRAD SAVE LOW BYTE AND 


0072 

0826 

8C4508 


STY CCNT CHARACTER COUNT 

• 

0073 

082E 

A000 


LDY #0 


0074 

0830 


a 

t 

• 

* 


0075 

0B30 

• 


PRINT CHARACTERS 

. . • 


0076 

0830 

•• 

• 

9 

€ * 

* • • • 


0077 

0830 

B1FE 

PCI LDA (CHRAD) , Y 


0078 

0832 

20EDFD 


JSR COUT 


0079 

0835 

C8 


INY 


0080 

0836 

CE4508 


DEC CCNT 


0081 

0839 

D0F5 


BNE PCI 


0082 

083B 


S 

* * 


0083 

083B 


* 

9 

HANDLE RETURN 


0084 

083B 


■ 

9 

• • 

. 

0085 

083B 

AD4408 

- 

LDA RETFLG 


0086 

083E 

F003 

• 

BEQ RTS 


0087 

0840 

208EFD 


JSR CROUT 


0088 

0843 

. * 

60 

RTS RTS 


0089 

0844 

♦ 

■ 

9 



0090 

0844 

- 

9 - 

9 

LOCAL DATA AREAS 



QRCA/EZ 1.0 



• 

- 


* 

0001 

0800 


PRINTER ON 

ft m • 

* ft 


ft 

0002 

0800 


KEEP 

PR0B9.2. 

OBJ..V100 


' 

0003 

0800 

*********************^****************** 


0004 

0800 

* 



• 

ft * 

* 


0005 

0800 

* 

LISTING <5 

>. 2 

• • ft • 

* 

' 

0006 

0800 

* 

• 



* 

* 

0007 

0800 

* 

SOLUTION 

TO PROBLEM 9.2 

* 


0008 

0800 

* 

• 



* 

• 

0009 

0800 

* 

THIS PROGRAM ECHOES A MESSAGE FROM 

* 

• 

0010 


* 

THE KEYBOARD BACK TO THE CRT. IT 

* 

. t . 

0011 

0800 

* 

USES SRITE FROM SUBS. UTILITY2. 

* 


0012 

0800 

* 



ft 

ft • 

* 

* 

0013 

0800 

# 

INPUT: 


9 

* 


0014 

0800 

* 

LINE 

OF TEXT 

FROM KEYBOARD 

* 

• 

0015 

0800 

* 




* 

• 

0016 

0800 

* 

output: 


• 

* 

■ . 

0017 

0800 

* 

LINE 

OF TEXT 

TO SCREEN 

* 


0018 

0800 

* 




* 


0019 

0800 

**************************************** 

• — 

0020 

0800 

* 



ft 



0021 

0800 

P92 

START 




0022 

0800 

PROMPT EGU 

*33 

PROMPT CHARACTER 



0023 

0800 

CHRAD GEQU 

*FE 

CHARACTER ADDRESS 

V 


0024 

0800 

LINE EQU 

*200 

INPUT BUFFER 


- — - 

0025 

0800 

HOME EQU 

*FC58 

CLEAR THE SCREEN 



0026 

0800 

GETLN EQU 

$FD6A 

READ A LINE 



0027 

0800 

CROUT EQU 

*FD8E 

WRITE A RETURN 


* 

0028 

0800 







0029 

0800 2058FC 


JSR 

HOME 

CLEAR THE SCREEN 


■ •••• 

0030 

0803 A9C0 


LDA 


SET THE PROMPT 



0031 

0805 8533 


STA 

PROMPT 


i 


0032 

0807 206AFD 

TOP 

JSR 

GETLN 

READ THE LINE 



0033 

080 A 8A 


TXA 


MOVE THE LENGTH TO 

• 

0034 

080B A8 


TAY 


Y 


1 

0035 

080C A902 


LDA 

#>LINE 

WRITE THE MESSAGE 

• 


0036 

080E A200 


LDX 

#<LINE 



• ♦ 

0037 

0810 201908 


. JSR 

SRITE 

/• • 



0038 

0813 208EFD 


JSR 

CROUT 

• 


• 

0039 

0816 4C0708 


JMP 

TOP 

DO IT AGAIN 


ft 

0040 

0819 


END 


• ft 




Local 

Symbol Table 


9 

• 


CROUT 

FD8E GETLN 

FD6A HOME 

FC58 LINE 

0200 


PROMPT 

0033 TOP 

ft 

• 

0807 

■ 


• • • » 


3 

QRCA/EZ 1.0 


0001 

0800 


PRINTER ON 



0002 

0800 

. * • 

KEEP 

PROB10. 

3. OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 




* 

0005 

0800 

* LISTING 10.3 

- 

* 

0006 

0800 

* 

9 9 


• 

* 

0007 

0800 

* SOLUTION 

TO PROBLEM 10.3 

* 

0008 

0800 

* 



% 

* 

0009 

0800 

* THIS PROGRAM TAKES TWO NUMBERS, 

* 

0010 

0800 

* ADDS THEM 

, SUBTRACTS THEM, 

* 

0011 

0800 

* MULTIPLIES THEM, 

AND THEN DIVIDES 

* 

0012 

0800 

* THEM. THE RESULTS ARE WRITTEN TO 

* 

0013 

0800 

* THE 

CRT. 

OVERFLOWS ARE DETECTED. 

* 

0014 

0800 

* 




* 

00 IS 

0800 

* inputs: 



* 

0016 

0800 

* 

NUM1 

- FIRST 

NUMBER 

* 

0017 

0800 

* 

NUM2 

- SECOND NUMBER 

* 

0013 

0800 

* 




* 

0019 

0800 

* outputs: 


• 

* 

0020 

0800 

* 

MESSAGES WITH RESULTS 

* 

0021 

0800 

* 




* 

0022 

0800 

* notes: 


• 

* 

0023 

0800 

* 

1) USES SADD 

2, SDIVD, SEROR, 

* 

0024 

0800 

* 


SMULT, 

SRITE, SSUB2, AND 

* 

0025 

0800 

* 


SWNUM 


* 

0026 

0800 

* 

• 




* 

0027 

0800 

**************************************** 

0028 

0800 

* 





0029 

0800 

MATH 

START 



0030 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0031 

0800 

R1 

GEQU 

*1 

REGISTERS 


0032 

0800 

R2 

GEGU 

*2 



0033 

0800 

R3 

GEQU 

$3 



0034 

0800 

R4 

GEQU 

$4 

ft • 


0035 

0800 

R5 

GEQU 

*5 

• 


0036 

0800 

R6 

GEQU 

*6 



0037 

0800 

R7 

GEQU 

*7 



0038 

0800 

R8 

GEQU 

$8 



0039 

0800 

R9 

GEQU 

$9 

• 


0040 

0800 

R10 

GEQU 

«A 

• 


0041 

0800 

Rll 

GEQU 




0042 

0800 

R12 

GEQU 

«C 



0043 

0800 

R13 

GEQU 

$D 

‘ 


0044 

0800 

R14 

GEQU 

«E 



0045 

0800 

R15 

GEQU 

$F 

• 


0046 

0800 

MIL 

GEQU 

*D0 

TWO BYTE INTEGER 


0047 

0800 

M1H 

GEQU 

*D1 

MATH REGISTERS 


0048 

0800 

M2L 

GEQU 

*D2 



0049 

0800 

M2H 

GEQU 

$D3 



0050 

0800 

M3L 

GEQU 

*D4 



0051 

0800 

M3H 

GEQU 

*D5 

*9 

. 


0052 

0800 

SIGN 

GEQU 

*D6 



0053 

0800 

CHRAD 

GEQU 

*FE 

CHARACTER ADDRESS 


0054 

0800 

i 

• 

• 

- 

(FOR SRITE) 


0055 

0800 

HOME 

GEQU 

*FC58 

CLEAR THE SCREEN 


0056 

0800 

CRQUT 

GEQU 

*FDSE 

DO A RETURN 


0057 

0800 

5 



% 


0058 

0800 

; ADD 

THE NUMBERS 

AND WRITE THE 




0059 

0800 

* 

• 

4 

m 

9 

ANSWER 

• 

* 

4 m 

" * 

* 

4 

• m 

0060 

0800 


• 

> 


• 

• 

0061 

0800 

ADBD08 


LDA 

NUMl 

LOAD NUMl 

0062 

0803 

85D0 


STA 

MIL 

. 

0063 

0805 

ADBE08 


LDA 

NUM1+1 

. 

0064 

0808 

85D1 


STA 

M1H 

• 

0065 

080A 

ADBF08 


LDA 

NUM2 

LOAD NUM2 

0066 

080D 

85D4 


STA 

M3L 

* 

0067 

080F 

ADC008 


LDA 

NUM2+ 1 

■ 

0068 

0812 

8505 


STA 

M3H 

• * • 

0069 

0814 

20C108 


JSR 

SADD2 

ADD NUMBERS 

0070 

0817 

20CF08 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0071 

081 A 

A908 


LDA 

#>MSG3 

WRITE THE ANSWER 

0072 

08 1C 

A2B1 


LDX 

#<MSG3 

4 

9 

0073 

081E 

A006 


LDY 

#MSG4— MSG3 

0074 

0820 

20A90B 


JSR 

SRITE2 

9 

0075 

0823 

200709 


JSR 

SWNUM 

• 

0076 

0826 

208EFD 


JSR 

CROUT 

• 

0077 

0829 


• 

9 



* 

0078 

0829 


» 

9 

SUBTRACT 

THE NUMBERS ANR WRITE THE 

0079 

0829 


ft 

9 

ANSWER 


. - 

0080 

0829 


■ 

9 



• 

0081 

0829 

ADBD08 


LDA 

NUMl 

LOAD NUMl 

0082 

082C 

85D0 


STA 

MIL 

. . . • • . 

0083 

082E 

ADBE08 


LDA 

NUM1+1 

• 

• 

0084 

0831 

85D1 


STA 

M1H 


0085 

0833 

ADBF08 


LDA 

NUM2 

LOAD NUM2 

0086 

0836 

85D4 


STA 

M3L 

• . • 

• • 

0087 

0838 

ADC008 


LDA 

NUM2+1 

4 

• 

0088 

083B 

85D5 


. STA 

M3H 

• • 

0089 

083D 

20F908 


JSR 

SSUB2 

SUBTRACT NUMBERS 

0090 

0840 

20CF08 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0091 

0843 

A908 


LDA 

#>MSG4 

WRITE THE ANSWER 

0092 

0845 

A2B7 

• 

LDX 

#<MSG4 

• 

0093 

0847 

A006 


LDY 

#MSG5— MSG4 

0094 

0849 

20A90B 


JSR 

SRITE2 

• 

0095 

084C 

200709 


JSR 

SWNUM 


0096 

084F 

20BEFD 


JSR 

CROUT 


0097 

0852 


9 



* 

0098 

0852 

• 

• 

9 

MULTIPLY 

THE NUMBERS AND WRITE THE 

0099 

0852 

• 

■ 

9 

ANSWER 


* 

0100 

0852 


a 

9 



' . : 

0101 

0852 

ADBD08 


LDA 

NUMl 

LOAD NUMl 

0102 

0855 

85D0 


STA 

MIL 


0103 

0857 

AOBE08 


LDA 

NUM1+1 

• 

0104 

085A 

85D1 

• 

STA 

M1H 

• 

0105 

085C 

ADBF08 


LDA 

NUM2 

LOAD NUM2 

0106 

085F 

85D4 


STA 

M3L 

♦ 

0107 

0861 

ADC008 


LDA 

NUM2+.1 

- 

0108 

0864 

8505 


STA 

M3H 

* 9 

0109 

0866 

20190B 


JSR 

SMULT 

MULTIPLY NUMBERS 

0110 

0869 

20CF08 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0111 

086C 

A908 


LDA 

#>MSG1 

WRITE THE ANSWER 

0112 

086E 

A2A5 


LDX 

#<MSG1 

- 

0113 

0870 

A006 


LDY 

#MSG2— MSG1 * 

0114 

0872 

20A90B 


JSR 

SRITE2 

. * 

. * . % 

• 4 

0115 

0875 

200709 


JSR 

SWNUM 

* 

0116 

0878 

208EFD 


JSR 

CROUT 

• % 

9 m m m 

0117 

087B 


m 

9 



* 

< • • • . 

0118 

4 

• ■ * 

* ■ 

* “ 

087B 

* 

9 

* 

m s 

9 

DIVIDE THE NUMBERS AND WRITE THE 

. - . " - * 

' * * * . t ..." 

* • * • . i 

m * * . m m mm ■ 

- " ... - 
. - - * . ; 

- • . • ^ v • ’ • . . 

. • • . • - ' 

• » . * • . • * 



0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0 1 30 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


087B 

087B 

087B 

087E 

0880 

0885 

0885 

0888 

086A 

0880 

088F 

0892 

0895 

0897 

0899 

089B 


08A1 

08A4 

08A5 

08A5 

08A5 

08A5 

08AB 

08B1 

08B7 

08BD 

08BD 

08BF 


; ANSWER 


5 


ADBD08 

LDA 

NUM1 

LOAD NUM1 

85D0 

STA 

MIL 


ADBE08 

LDA 

NUM 1+1 

* 

85D1 

STA 

M1H 


ADBF08 

LDA 

NUM2 

LOAD NUM2 

85D4 

STA 

M3L 


ADC008 

LDA 

NUM2+1 

. 

85D5 

STA 

M3H 

* 

203 10A 

JSR 

SDIVD 

DIVIDE NUMBERS 

20CF0B 

JSR 

SEROR 

CHECK FOR OVERFLOW 

A908 

LDA 

#>MSG2 

WRITE THE ANSWER 

A2AB 

LDX 

4KMSG2 


A006 

LDY 

#MSG3— MSG2 

20A90B 

JSR 

SRITE2 


200709 

JSR 

SWNUM 


208EFD 

JSR 

CROUT 


60 

m 

RTS 




LOCAL DATA AREAS 


C 1 A AC2 

9 

MSG1 

DC 

C 5, A*B = ’ 


C1AFC2 

MSG2 

DC 

C’A/B = ’ 


C1ABC2 

MSG3 

DC 

C'A+B * ' 

t 

C1ADC2 

MSG4 

DC 

C’A-B - ’ 



MSGS 

DS 

0 


0A00 

NUM1 

DC 

I' 10' 


0300 

NUM2 

DC 

I’3 P 




END 


« 


Local Symbol Table 


MSG1 

MSGS 


08A5 MSG2 
08BD NUM1 


08AB MSG3 
08BD NUM2 


08B1 MSG4 
08BF 


08B7 



0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 


08C1 

08C1 

08C1 

08C1 

08C1 

08C1 

08C1 

0SC1 

08C1 

08C1 

08C1 

08C1 

08C1 

0SC1 

08C1 

08C1 

08C1 18 

08C2 A5D0 

08C4 6504 

08C6 8500 

08C8 A501 

08CA 6505 

08CC 8501 

08CE 60 

08CF 


********************************* M e.***.*.*.* 

* * 

* SA002 - TWO BYTE A00 * 

* * 

* INPUTS: * 

* MIL - FIRST ARGUMENT * 

* M3L - SECONB ARGUMENT * 

* * 

* OUTPUTS: * 

* MIL - RESULT * 

* * 
***^***************.jh*******************.* 
* 

SA002 START 


CLC 

L0A MIL 
A0C M3L 
STA MIL 
LBA M1H 
A0C M3H 
STA M1H 
RTS 
EN0 



0174 

08CF 

• 

• 


4 

0175 

08CF 

- 

**************************************** 

0176 

08CF 


* 


* 

0177 

08CF 

- 

* 

SEROR - CHECK FOR OVERFLOW * 

0178 

0QCF 

* + 

* 


* 

0179 

08CF 


* 

INPUTS: * 

0180 

08CF 


* 


V - OVERFLOW flag * 

0181 

08CF 


* 


* 

0182 

08CF 


* 

outputs: * 

0183 

08GF 

• 

* 


OVERFLOW MESSAGE * 

0184 

0BCF 

• 

* 


* 

0185 

08CF 


**************************************** 

0186 

08CF 


* 


• 

0187 

08CF 

• . 

SERQR 

START 

0188 

08CF 




• 

0189 

08CF 

5009 



BVC RTS 

0190 

0BD1 

A908 



LDA #>MSG1 

0191 

08D3 

A2DB 



LDX #<MSG1 

• 

0192 

08D5 

A00D 



LDY #MSG2— MSGl 

0193 

08D7 

20A90B 



JSR SRITE2 

0194 

08DA 

60 

RTS 

RTS 

0195 

08DB 




• 4 

0196 

08DB 

AAAAAA 

MSGl 

DC C’***OVERFLOW: 

0197 

08EB 


MSG2 

DS 0 

0198 

08E8 




END 


Local Symbol Table 

MSGl 08DB MSG2 0BEB RTS 0BDA 





0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 


08E8 
0E 


08E8 
08E8 
08E8 
08E8 
08E8 
08EB 
0E 

08EI 


0213 08E8 

0214 08EQ 


0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 
0229 


08E 

■ 


08E8 

08E8 8500 
08EA 8401 
08EC A000 
08EE B100 
08F0 F006 
08F2 20EDFD 
08F5 CS 
08F6 D0F6 
08F8 60 
08F9 


**************************************** 

6 


* * 

* SNOUT - NUMBER OUTPUT TO CRT * 

* * 

* inputs: * 

* Y— A - ADDRESS OF STRING TO * 

* WRITE * 

* * 

* notes: * 

* 1) THE STRING MUST END WITH A * 

* $00 * 

* * 


**************************************** 

• « * 


* 




SNOUT 

START 



COUT 

EGU 

$FDED 

CHARACTER OUTPUT 

• 


STA 

R0 

SAVE THE ADDRESS 


STY 

R1 



LDY 

#0 

OUTPUT THE 

NT1 

LDA 

(R0) , Y 

CHARACTERS 


BEQ 

NT2 

• • • 


JSR 

I NY 

COUT 

• 


BNE 

NT1 


NT2 

RTS 

• 



END 




Local Symbol Table 


GOUT 


FDED NT1 


08EE NT2 


08F8 



0230 

08F9 



• 

- 

0231 

08F9 


**************************************** 

0232 

08F9 


* 


* 

♦ 

0233 

08F9 


* 

SSUB2 - TWO BYTE SUBTRACT * 

0234 

0BF9 


* 


* 

0235 

08F9 


* 

inputs: 

* 

0236 

08F9 


* 

MIL - 

FIRST ARGUMENT * 

% 

0237 

08F9 


* 

M3L - 

SECOND ARGUMENT * 

0238 

0BF9 


* 


* 

0239 

08F9 


* 

outputs: 

* 

0240 

08F9 


* 

MIL - 

RESULT * 

0241 

08F9 


* 


* 

0242 

08F9 


**************************************** 

0243 

08F9 


* 



0244 

08F9 


SSUB2 START 


0245 

08F9 

• 



• 

0246 

08F9 

38 


SEC 

• * 

0247 

08FA 

A5D0 


LDA 

MIL 

0248 

08FC 

E5D4 


SBC 

M3L 

0249 

08FE 

85D0 


STA 

MIL 

0250 

0900 

A5D1 


LDA 

M1H 

0251 

0902 

E5D5 


SBC 

M3H 

0252 

0904 

85D1 


STA 

M1H 

0253 

0906 

60 


RTS 


0254 

0907 



END 





0255 

0907 

- 


• . 


0256 

0907 


*******mhhh****************************** 

0257 

0907 

- 

*■ 

• 

* 

0258 

0907 


* 

SWNUM - WRITE NUMBER TO SCREEN 

* 

0259 

0907 


* 

• » 

% m m • 

* 

0260 

0907 


* 

INPUTS: 

* 

0261 

0907 


* 

MIL - NUMBER TO WRITE 

* 

0262 

0907 


* 

• • • t • 

* 

0263 

0907 

6 

* 

notes: 

* 

0264 

0907 

* 

* 

1) USES SIWRT AND SNOUT 

* 

0265 

0907 


* 

4 

* 

0266 

0907 

4 * 

**************************************** 

0267 

0907 


* 



0268 

0907 

9 

SWNUM START 


0269 

0907 

* f t 


* 

• 

0270 

0907 

208909 


JSR SIWRT CONVERT THE NUMBER 

0271 

090A 



TO A STRING 


0272 

090A 

20E808 


JSR SNOUT WRITE THE STRING 

• 


0273 

090D 

60 


RTS 


0274 

090E 



END 




0313 

092D A607 


LDX 

R7QRCA/EZ 1.0 

* 


0001 

0800 


PRINTER ON 



0002 

0800 


KEEP 

PROS 10. 4 

.OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 



. 

* 

0005 

0800 

* LISTING 10-4 


* 

0006 

0800 

* 



- 

* 

0007 

0800 

* SOLUTION 

TO PROBLEM 10.4 

* 

0008 

0800 

* 




* 

000? 

0800 

* THIS PROGRAM TAKES TWO NUMBERS, 

* 

0010 

0800 

* ADDS THEM 

, SUBTRACTS THEM, 

* 

0011 

0800 

* MULTIPLIES THEM, 

DIVIDES THEM, AND 

* 

0012 

0800 

* FINDS THE 

REMAINDER OF THE DIVISION. 

, * 

0013 

0800 

* RESULTS ARE WRITTEN TO THE CRT. 

* 

0014 

• 

0800 

* OVERFLOWS 

ARE DETECTED. 

* 

0015 

0800 

* 



f 

* 

0016 

0800 

* inputs: 



* 

0017 

0800 

* 

NUM1 

- FIRST 

NUMBER 

* 

0018 

0800 

* 

NUM2 

- SECOND 

NUMBER 

* 

0019 

0800 

* 

• 



* 

0020 

0800 

* OUTPUTS: 



* 

0021 

0800 

* 

MESSAGES WITH 

RESULTS 

* 

0022 

0800 

* 



• f 

* 

0023 

0800 

* notes: 


•• 

* 

0024 

0800 

* 

1) USES SADD2 

. SDIVD, SEROR, 

* 

0025 

0800 

* 


SM0D2, 

SMULT, SRITE, 

* 

0026 

0800 

* 


SSUB2, 

AND SWNUM 

* 

0027 

0800 

* 




* 

0028 

0800 

**************************************** 

0029 

0800 

* 



* 


0030 

0800 

MATH 

START 

' . 

• 


0031 

• 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0032 

0800 

R1 

<3EQU 

*1 

REGISTERS 


0033 

0800 

R2 

GEQU 

S2 



0034 

0800 

R3 

GEQU 

$3 

• 


0035 

0800 

R4 

GEQU 

*4 



0036 

0800 

R5 

GEQU 

*5 

• 


0037 

0800 

R6 

GEQU 

*6 

• ‘ * 


0038 

0800 

R7 

GEQU 

%7 

a * 


0039 

0800 

R8 

GEQU 

«8 



0040 

0800 

R9 

GEQU 

*9 

* * ‘ . 


0041 

0800 

R10 

GEQU 

»A 

* 


0042 

0800 

Rll 

GEQU 

$B 

• ft 

• 


0043 

0800 

R12 

GEQU 

*C 



0044 

0800 

R13 

GEQU 

$D 

• 


0045 

0800 

R14 

GEQU 

$E 

- 


0046 

0800 

R15 

GEQU 

*F 

• ft 


0047 

0800 

MIL 

GEQU 

$D0 

TWO BYTE INTEGER 


0048 

0800 

M1H 

GEQU 

*D1 

MATH REGISTERS 


0049 

0800 

• • 

M2L 

GEQU 

«D2 



0050 

• 

0800 

M2H 

GEQU 

*D3 


ft 

0051 

0800 

M3L 

GEQU 

*D4 

6 

ft* 

- 

0052 

0800 

M3H 

GEQU 

*D5 



0053 

0800 

SIGN 

GEQU 

«D6 

* 

s aft 


0054 

0800 

CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 


0055 

0800 

i 

• 



(FOR SRITE) 


0056 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 

• 

0057 

0800 

CROUT 

GEQU 

SFD8E 

DO A RETURN 

- 

0058 

0800 

5 

• 


* 




0059 

0800 


0060 

0800 


0061 

0800 

A 

0062 

0800 

ADF008 

0063 

0803 

85D0 

0064 

0805 

ADF108 

0065 

080B 

85D1 

0066 

080A 

ADF208 

0067 

080D 

85D4 

0063 

080F 

ADF308 

0069 

0812 

85D5 

0070 

0814 

20F408 

0071 

0817 

200209 

0072 

081 A 

A908 

0073 

081C 

A2DA 

0074 

081E 

A006 

0075 

0820 

20E80B 

0076 

0823 

204609 

0077 

0826 

208EFD 

0078 

0829 

• 

0079 

0829 


0080 

0829 


0081 

0829 


0082 

0829 

ADF008 

0083 

082C 

85D0 

0084 

082E 

ADF108 

0085 

0B31 

85D1 

0086 

0833 

ADF208 

0087 

0836 

85D4 

0088 

0838 

ADF308 

0089 

083B 

85D5 

0090 

083D 

203809 

0091 

0840 

200209 

0092 

0843 

A908 

0093 

0845 

A2E0 

0094 

0847 

A006 

0095 

0849 

20ES0B 

0096 

084C 

204609 

0097 

084F 

208EFD 

0098 

0852 


0099 

0852 


0100 

0852 


0101 

0852 


0102 

0852 

ADF008 

0103 

0855 

85D0 

0104 

0857 

ADF10B 

0105 

085A 

85D1 

0106 

085C 

ADF208 

0107 

085F 

85D4 

0108 

0861 

ADF308 

0109 

0864 

B5D5 

0110 

0866 

20580B 

0111 

0869 

200209 

0112 

086C 

A908 

0113 

086E 

A2CE 

0114 

0870 

A006 

0115 

0872 

20E80B 

0116 

0875 

204609 

0117 

0878 

208EFD 

0118 

087B 



ADD THE NUMBERS AND WRITE THE 
ANSWER 

LDA NUM1 LOAD NUM1 

STA MIL 

LDA NUM1+1 

STA M1H 

LDA NUM2 LOAD NUM2 

STA M3L 

LDA NUM2+1 

STA M3H 

JSR SADD2 ADD NUMBERS 

JSR SEROR CHECK FOR OVERFLOW 

LDA #>MSG3 WRITE THE ANSWER 

LDX #<MSG3 

LDY #MSG4-MSG3 

JSR SRITE2 

JSR SWNUM 

JSR CROUT 

SUBTRACT THE NUMBERS ANR WRITE THE 
ANSWER 

LDA NUM1 LOAD NUM1 

STA MIL 

LDA NUM 1+1 

STA M1H 

LDA NUM2 LOAD NUM2 

STA M3L 

LDA NUM2+1 

STA M3H 

JSR SSUB2 SUBTRACT NUMBERS 

JSR SEROR CHECK FOR OVERFLOW 

LDA #>MSG4 WRITE THE ANSWER 

LDX #<MSG4 

LDY #MSG5— MSG4 

JSR SRITE2 

JSR SWNUM 

. JSR CROUT 

MULTIPLY THE NUMBERS AND WRITE THE 
ANSWER 

LDA NUM1 LOAD NUM1 

STA MIL 

LDA NUM1+1 

STA M1H 

LDA NUM2 LOAD NUM2 

STA M3L 

LDA NUM2+T 

STA M3H 

JSR SMULT MULTIPLY NUMBERS 

JSR SEROR CHECK FOR OVERFLOW 

LDA #>MSG1 WRITE THE ANSWER 

LDX #<MSG1 

. LDY #MSG2-MSG1 
JSR SRITE2 

JSR SWNUM 

JSR CROUT 



» 



0119 

087B 

• 

5 DIVIDE THE NUMBERS AND WRITE THE 

0120 

087B 


; ANSWER 


• 

0121 

087B 


m 

9 - 


- 

. 

0122 

087B 

ADF008 


LDA 

NUM1 

LOAD NUM1 

0123 

087E 

85D0 


STA 

MIL 


0124 

0880 

ADF108 

• % 


LDA 

NUM1+1 

• % 

0125 

0883 

85D1 


STA 

M1H 

• * » 

> ■ 

“ 0126 

■ * 

0885 

ADF208 


LDA 

NUM2 

LOAD NUM2 

0127 

0888 

85D4 


STA 

M3L 


0128 

088A 

ADF308 


LDA 

NUM2-+ 1 

• 4 

0129 

088D 

8505 


STA 

M3H 

• 

0130 

088F 

20700 A 


JSR 

SDIVD 

DIVIDE NUMBERS 

0131 

0892 

200209 

• 

JSR 

SERQR 

CHECK FOR OVERFLOW 

0132 

0895 

A908 

• * 

LDA 

#>MSG2 

WRITE THE ANSWER 

0133 

0897 

A2D4 


LDX 

#<MSG2 

, * • • • * * 

0134 

0899 

A006 


LDY 

#MSG3-MSG2 

_ 0135 

089B 

20E80B 


JSR 

SRITE2 

. 

0136 

089E 

204609 

• 

JSR 

SWNUM 

. * ' • • 

0137 

■ A 

08 A 1 

208EFD 


JSR 

CROUT 

• 

0138 

08A4 


5 


‘ 

• i . 

0139 

08A4 

•. 

5 TAKE THE 

MODULUS OF THE NUMBERS AND 

0140 

08A4 


5 WRITE THE ANSWER 


0141 

08A4 


• 

9 


• • 

• 

0142 

08A4 

ADF008 


LDA 

NUM1 

LOAD NUM1 

0143 

08A7 

85D0 

- 

STA 

MIL 

4 

0144 

08A9 

ADF108 


LDA . 

NUM1+1 


0145 

08AC 

S5D1 


STA 

M1H 


0146 

08AE 

ADF208 


LDA 

NUM2 

LOAD NUM2 

0147 

08B1 

85D4 


STA 

M3L 

* s • • 

• % 

0148 

08B3 

ADF308 


LDA 

NUM2+ 1 

• • • 

0149 

08B6 

8505 


STA 

M3H 


0150 

08B8 

201B09 


JSR 

SM0D2 

MOD NUMBERS 

0151 

08BB 

200209 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0152 

08BE 

A908 


LDA 

#>MSG5 

WRITE THE ANSWER 

0153 

08C0 

A2E6 


LDX 

#<MSG5 

• 

_ 0154 

08C2 

A00A 


LDY 

#MSG6— MSGS 

0155 

0BC4 

20EB0B 

• 

JSR 

SRITE2 

• 

0156 

08C7 

204609 


JSR 

SWNUM 


0157 

08CA 

208EFD 


JSR 

CROUT 

• 

0 1 58 

08CD 

60 


RTS 


• 

_ 0159 

08CE 


m 

9 



. 

0160 

08CE 


5 LOCAL DATA AREAS 

* 

0161 

08CE 


• 

9 


- 

- 

0162 

• • * 

08CE 

C1AAC2 

MSG1 

DC 

C* A*B = 

* 

0163 

0804 

C1AFC2 

MSG2 

DC 

C’A/B = 


0164 

08DA 

C1ABC2 

MSG3 

DC 

C’A+B = 

9 

| 0165 

08E0 

C1ADC2 

MSG 4 

DC 

C * A— B = 

9 

& • * 

0166 

08E6 

C1A0CD 

MSG5 

DC 

C’A MOD 

B ■- ’ 

0167 

08F0 

• • * • 

MSG6 

DS 

0 

• 

0168 

08F0 

0A00 

NUM1 

DC 

I ’ 10* 

• . 

r 0 1 69 

0BF2 

0300 . 

NUM2 

DC 

I’Z* 

- 

0170 

08F4 



END 


• • 


Local Symbol Tab’le 

* * # • 

%» * m • 

* • m m 

MS81 08CE MSG2 08D4 MSG3 08DA MSG4 08E0 

MSGS 08E6 MSG6 08F0 NUM1 08F0 NUM2 08F2 



0221 

09 IB 


0222 

091B 

9 m 

0223 

09 IB 


0224 

09 IB 


0225 

09 IB 


0226 

091B 

6 

% 

0227 

091B 

- 

022B 

09 IB 


0229 

09 IB 

- 

0230 

091B 


0231 

09 IB 

% 

0232 

091B 


0233 

09 IB 


0234 

09 IB 


0235 

09 IB 


0236 

09 IB 

• 

0237 

091B 


0238 

09 IB 

20700A 

0239 

09 IE 

A5D2 

0240 

0920 

85D0 

0241 

0922 

A5D3 

0242 

0924 

85D1 

0243 

0926 

60 

0244 

0927 



**************************************** 


* * 

* m 

* SMQD2 - TWO BYTE MODULO * 

* * 

* inputs: * 

* MIL - FIRST ARGUMENT * 

* M3L - SECOND ARGUMENT * 

* * 

* outputs: * 

* MIL - RESULT * 

* * 


**************************************** 

• • • % 

* 

SM0D2 START 

JSR SDIVD 
LDA M2L 
STA MIL 
LDA M2H 
STA M1H 
RTS 
END 


NOTE: SADD2, SEROR, SNOUT, SSUB2, and SWNUM as in 10.3 



" ■ * 

_ . 

4 

0 

m 0 * — 

* 

. * » • 

» » . 

0 • 

0119 

» * 

s 

0 

0 

0 

0850 

M 

• % 

0 

• * 0 

0 

ORCA/EZ 1.0 


0 

0 

* “ 

0 

* 

• ™ r 

♦ 

% 

* 

m 

0 

0001 

0800 



PRINTER ON 

- 


0002 

0800 



KEEP 

PRQB10.5. 

% m 

OBJ 

* 

0003 

0800 

« 

**************************************** 

0004 

0800 


* 



- 

* 

— 0005 

0800 

. - 

* LISTING 10.5 

. 

* 

0006 

0800 


* 


0 

• t 

* 

0007 

0800 

% 

* SOLUTION 

TO PROBLEM 10.5 

* 

0008 

0800 


* 


. • 

• 

* 

0009 

0800 


* THIS PROGRAM TESTS 

; A NEW NUMBER 

% • 

* 

0010 

0800 


* OUTPUT ROUTINE. WHICH WRITES THE 

0 

* 

0011 

0800 


* NUMBER IN 

BOTH HEXADECIMAL AND 

* 

0012 

0800 


* DECIMAL FORMAT. 


* 

0013 

0800 


* 


• 


* 

0014 

0800 


* inputs: 


* 

* 

0015 

0800 

* 

* 

NUM1 

- NUMBER 

TO BE WRITTEN 

* 

0016 

0800 


* 



• 

* 

0017 

0800 

0 


* OUTPUTS: 


• 

* 

0018 

0800 


* 

NUM1 

IN BOTH FORMS 

* 

__ 0019 

0800 


* 



• 

• % 

* 

0020 

0800 

. • 

* notes: 


. 

* 

0021 

0800 


* 

1) USES SWNUM 

% 

* 

0022 

0800 

• 

* 



• 

% f 

* 

0023 

0800 


**************************************** 

0024 

% • . • 

0800 


* 

• 

• 



0025 

0800 


PI 05 

START 



0026 

0800 


R0 

GEQU 

$0 

GENERAL PURPOSE 


0027 

0800 


R1 

GEQU 

$1 

REGISTERS 


. 0028 

0800 


R2 

GEQU 

*2 

• 


0029 

0800 


R3 

GEQU 

*3 



0030 

0800 


R4 

GEQU 

$4 


. 

0031 

0800 


R5 

GEQU 

$5 


* 

0032 

0800 


R6 

GEQU 

$6 



0033 

0800 


R7 

GEQU 

$7 



0034 

0800 


R8 

GEQU 

$8 

• 

* 

0035 

0800 

• 

R9 

GEQU 

$9 



. 0036 

0800 


R10 

GEQU 

*A 



0037 

0800 


Rll 

GEQU 




0038 

0800 

• 

R12 

GEQU 

*C 



0039 

0800 


R13 

GEQU 

*D 


* . 

0040 

0800 


R14 

GEQU 

*E 



0041 

0800 

• 


R15 

GEQU 

$F 



0042 

0800 


MIL 

GEQU 

$D0 

TWO BYTE INTEGER 


_ 0043 

0800 


• M1H 

GEQU 

*D1 

MATH REGISTERS 


0044 

0800 

* 

M2L 

GEQU 

$D2 



0045 

0800 


M2H 

GEQU 

*D3 

• 


0046 

0800 


M3L 

GEQU 

*D4 

• 

• 

0047 

0800 


M3H 

GEQU 

SD5 


• 

- 0048 

0800 

- 

SIGN 

GEQU 

«D6 

• 


0049 

0800 


CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 


0050 

0800 


i 

♦ 


' 

(FOR SRITE) 


0051 

0800 


- 



* 

* 

0052 

0800 

A9ES 


LDA 

#<1000 



~ 0053 

0802 

85D0 


STA 

MIL 



0054 

0804 

A903 


LDA 

#>1000 

- 


0055 

0806 

85D1 

« 

STA 

M1H 

* 


0056 

0808 

201D08 


JSR 

SWNUM 

- 


0057 

030B 

60 


RTS 

- 

^ m 


0058 

* 

4 

4 . * • 

• * • * k 

• W 

fc m • 

r ' * . 

080C 

• 


END 

0 

4 

* 

0 • 

0 



0059 

080C 




* 


0060 

080C 



j 

- 

- 

0061 

080C 

****#******##******#*■**•********■*■#•*#■■*#■#*■* 

0062 

080C 

* 




* 

0063 

080C 

* SNOUT - 

NUMBER OUTPUT TO CRT 

* 

0064 

080C 

* 




* 

0065 

080C 

* inputs: 


- 

* 

0066 

080C 

* 

Y-A 

- ADDRESS 

OF STRING TO 

* 

0067 

080C 

* 


WRITE 

• 

* 

0068 

080C 

* 


• 


* 

0069 

080C 

* notes: 



* 

0070 

080C 

* 

1) THE STRING 

MUST END WITH A 

* 

0071 

080C 

* 


$00 

• • 

* 

0072 

080C 

* 




* 

0073 

080C 

*******#*#**************4HHt*******'***#-** 

0074 

080C 

* 




• ’ 

0075 

080C 

SNOUT 

START 

• 

* 

0076 

080C 

COUT 

EQU 

*FDED 

CHARACTER OUTPUT 

• 

0077 

080C 






0078 

080C 8500 


STA 

R0 

SAVE THE ADDRESS 


0079 

080E 8401 


STY 

R1 



0080 

0810 A000 

• 

LDY 

#0 

OUTPUT THE 


0081 

0812 B100 

‘ NT1 

LDA 

<R0) , Y 

CHARACTERS 


0082 

0814 F006 


BEG 

NT2 



0083 

0816 20EDFD 


JSR 

COUT 



0084 

0819 C8 


I NY 




0085 

081 A D0F6 


BNE 

NT1 



0086 

08 1C 60 

NT2 

RTS 


A 


0087 

081D 


END 





Local Symbol Table 

COUT FDED NT1 0812 NT2 08 1C 



0088 

0B1D 


% 




.. ■ . . 

0089 

0810 

6 

% 


• 



- 

0090 

0810 


********HHe****************************** 

9 

0091 

0810 


* 


% 


* 

0092 

0810 

* ’ 

# 

SWNUM - WRITE NUMBER TO THE SCREEN * 

0093 

0810 

9 


* 


- 

• • 

* 

0094 

0810 

• • m 

• % m 

* 

inputs: 


* 

0095 

0810 

• 

* 


MIL 

NUMBER 

TO WRITE * 

0096 

0810 

• 

.* 




* 

0097 

0810 

% 

S 

* 

notes: 


* 

0098 

0810 

- * 

* 


1) USES SIWRT 

AND SNOUT * 

0099 

081D 

• • 

* 




* 

0100 

0810 

* - . 

**************************************** 

• 9 

0101 

0810 

6 

* 




• 

0102 

0810 


SWNUM 

START 


* 

0103 

081D 

• : 

PRAX 

EQU 

*F941 

PRINT A-X 

0104 

08 ID 


CROUT 

EQU 

$FD8E 

WRITE A CR 

0105 

0810 


COUT 

EQU 

*FDED 

WRITE A CHAR 

0106 

0810 






• 

0107 

0810 

A5D0 



LDA 

MIL 

SAVE THE NUMBER 

0108 

081F 

8O4E08 



STA 

NUM1 


0109 

0822 

A5D 1 



LDA 

M1H 

• 9 

0110 

0824 

8D4F08 



STA 

NUM1+1 

9 

0111 

0827 

20CB08 



JSR 

SIWRT 

WRITE AS A DECIMAL 

0112 

082A 

200C08 

• 


JSR 

SNOUT 

NUMBER 

0113 

082D 

A9A0 



LDA 


■ 

• 

0114 

082F 

20EDFD 



JSR 

COUT 


0115 

0832 

A9A8 



LDA 

#’ <’ 


0116 

0834 

20EDFD 



JSR 

COUT 

. 

0117 

0837 

A9A4 


• 

LDA 



0118 

0839 

20EDFD 



JSR 

COUT 

• 

0119 

083C 

AD4F08 


• 

LDA 

NUM1+1 


0120 

083F 

AE4E08 

• 


LDX 

NUM1 


0121 

0842 

204 1F9 



JSR 

PRAX 


0122 

0845 

A9A9 

• 



LDA 

#’ )/ 


0123 

0847 

20EDFD 



JSR 

COUT 


0124 

0B4A 

208EFD 



JSR 

CROUT 


0125 

0840 

60 



RTS 

- 

• 

• • • 

• • 

0126 

084E 



• 



# 

0127 

084E 

0000 

NUM1 

DS 

2 

NUMBER STORAGE AREA 

0128 

0850 




END 


• 


Local Symbol Table 

COUT FDED CROUT ROSE NUM1 084E PRAX F941 



k • 

k 

k 

k 

k 

0405 

0A04 

* 

s 


• 

. * 

* k • 

* 

k " m 

*ORCA/EZ 1.0 

0001 

0800 


PRINTER ON 

k 

r „ 

0002 

0800 


KEEP 

PROS 10.6 

.OBJ 

- 

0003 

0800 

**************************************** 

0004 

0800 

* 

• 



* 

0005 

0800 

* LISTING 

10.6 

-* 

* 

0006 

0800 

* 




* 

0007 

0800 

* SOLUTION 

TO PROBLEM 10.6 

* 

0008 

0800 

* 




* 

0009 

0800 

* THIS PROGRAM IS A 

MODIFICATION OF 

* 

0010 

0800 

# THE 

CALCULATOR PROBLEM FROM 

* 

0011 

0800 

* SECTION 

10-2. IT 

TERMINATES WHEN 

* 

0012 

0800 

* BOTH USER-SUPPLIED INPUTS ARE ZERO. 

* 

0013 

0800 

* RESULTS i 

ARE WRITTEN TO THE CRT. 

* 

0014 

0800 

* 

• 



* 

0015 

0800 

* INPUTS: 



* 

0016 

0800 

* 

NUM1 

- FIRST 1 

NUMBER 

* 

0017 

0800 

* 

NUM2 

- SECOND 

NUMBER 

* 

0018 

0800 

* 

• 



* 

0019 

0800 

* outputs: 



* 

0020 

0800 

* 

MESSAGES WITH 

RESULTS 

* 

0021 

0800 

* 


• 


* 

0022 

0800 

* notes: 



* 

0023 

0800 

* 

1) USES SDIVD 

, SMULT, SREDI, 

* 

0024 

0800 

* 


SRITE, SWNUM 

* 

0025 

0800 

* 


• 


* 

0026 

0800 

**************************************** 

0027 

0800 

* 





0028 

0800 

MATH 

START 

• 

• 

0029 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 

it 

0030 

0800 

R1 

GEQU 

♦ 1 

REGISTERS 

• 

0031 

0800 

R2 

GEQU 

*2 



0032 

0800 

R3 

GEQU 

*3 

• 


0033 

0800 

R4 

GEQU 

♦4 

§ 



0034 

0800 

R5 

GEQU 

♦5 


- - — 

0035 

0800 

R6 

GEQU 

*6 

• 


0036 

0800 

R7 

GEQU 

*7 


* , 

• 

0037 

0800 

R8 

GEQU 

$8 


• 

0038 

0800 

R9 

GEQU 

*9 

• 


0039 

0800 

R10 

GEQU 

»A 


.. . . 

0040 

0800 

R1 1 

GEQU 

$B 


^ • 

0041 

0800 

R12 

GEQU 

*C 

• 

6 , 

0042 

0800 

R13 

GEQU 

$D 


• 

0043 

0800 

R14 

GEQU 

$E 



0044 

0800 

R15 

GEQU 

$F 

% 


0045 

0800 

MIL 

GEQU 

$D0 

TWO BYTE INTEGER 


0046 

0800 

M1H 

GEQU 

*D1 

MATH REGISTERS 


0047 

0800 

M2L 

GEQU 

$D2 



0048 

0800 

M2H 

GEQU 

*D3 

• 


0049 

0800 

M3L 

GEQU 

$D4 

• 


0050 

0800 

M3H 

GEQU 

$D5 



0051 

0800 

SIGN 

GEQU 

$D6 

- 


0052 

0800 

CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 


0053 

0800 

i 

♦ 



(FOR SRITE) 


0054 

0800 

LINE 

GEQU 

$200 

INPUT BUFFER 


0055 

0800 

PRAX 

GEQU 

*F941 

WRITE A-X AS HEX 


0056 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 


0057 

0800 

GETLN1 

GEQU 

SFD6F 

READ WITH NO PROMPT 

0058 

0800 

CROUT 

GEQU 

*FD8E 

♦ 

DO A RETURN 

k 

* 

% • 

k • 

k 

• k 



* 

* 

0059 

* 

^ • 

* • 

0800 

• 

9 



* 

0060 

0800 

m 

9 

READ THE 

NUMBERS 

FROM THE KEYBOARD 

0061 

0800 

• 




0062 

0800 2058FC 


JSR 

HOME 

CLEAR THE SCREEN 

0063 

0803 A908 

TOP 

LDA 

# >MSG3 

WRITE THE PROMPT 

0064 

0805 A2B8 


LDX 

#<MSG3 


0065 

0807 A00F 


LDY 

#MSG4— MSG3 

0066 

0809 208D0B 


JSR 

SRITE2 


0067 

080C 206FFD 


JSR 

GETLN1 


0068 

080F A902 


LDA 

#>LINE 

CONVERT THE STRING 

0069 

0811 8501 


STA 

R1 

9 • 

0070 

r 

0813 A900 


LDA 

#<LINE 

% 

0071 

0815 8500 


STA 

R0 

• 

0072 

0817 20930A 


JSR 

SREDI 


0073 

081 A A5D0 


LDA 

MIL 

SAVE THE RESULT 

0074 

08 1C 8DD608 


STA 

NUM1 


0075 

08 IF A5D1 


LDA 

M1H 

• k- 

0076 

0821 8DD708 


STA 

NUM 1+1 

• 

0077 

0824 





0078 

0824 A908 


LDA 

# >MSG4 

WRITE THE PROMPT 

0079 

0826 A2C7 


LDX 

#<MSG4 

• 

0080 

0828 A00F 


LDY 

#MSG5-MSG4 

0081 

082A 208D0B 


JSR 

SR I TE2 

• 

0082 

082D 206FFD 


JSR 

GETLN1 

V 

0083 

0830 A902 


LDA 

#>LINE 

CONVERT THE STRING 

0084 

0832 8501 


STA 

R1 

• 

0085 

0834 A900 


LDA 

#<LINE 

• _ 

0086 

0836 8500 


STA 

R0 

• 

0087 

0838 20930A 


JSR 

SREDI 

• ' 

0088 

083B A5D0 


LDA 

MIL 

SAVE THE RESULT 

0089 

083D 8DD808 


STA 

NUM2 

• • 

0090 

0840 A5D1 


LDA 

M1H 


0091 

0842 8DD90B 


STA 

NUM2+1 


0092 

0845 

9 




0093 

0845 

• 

9 

MULTIPLY 

THE NUMBERS AND WRITE THE 

0094 

0845 

m 

9 

ANSWER 



0095 

0845 

■ 

9 




0096 

0845 ADD608 


LDA 

NUM1 

LOAD NUM1 

0097 

0848 85D0 


STA 

MIL 


0098 

084A ADD708 

. 

LDA 

NUM1+1 


0099 

084D 85D1 


STA 

M1H 

♦ 

0100 

084F ADD808 


LDA 

NUM2 

LOAD NUM2 

0101 

0852 85D4 


STA 

M3L 


0102 

0854 ADD90S 


LDA 

NUM2+1 

• 

— 0103 

0857 8503 


STA 

M3H 


0104 

0859 20FD0A 


JSR 

SMULT 

MULTIPLY NUMBERS 

0105 

085C A908 


LDA 

# >MSG 1 

WRITE THE ANSWER 

0106 

085E A2AC 


LDX 

#<MSG1 

• 

0107 

0860 A006 


LDY 

#MSG2-MSG1 

0108 

0862 208D0B 


JSR 

SRITE2 


0109 

0865 20EB08 


JSR 

SWNUM 

9 

0110 

0868 208EFD 


JSR 

CROUT 

S 

0111 

086B 

1 



m % m 

0112 

086B 

i 

DIVIDE THE NUMBERS AND WRITE THE 

0113 

086B 

m 

9 

ANSWER 



0114 

086B 

9 



“ . 

0115 

086B ADD608 


LDA 

NUM1 

LOAD NUM1 

0116 

086E 8500 


STA 

MIL 

9 

0117 

0870 ADD708 


LDA 

NUM 1+1 

. 

0118 

% * 

• 0 • 

* • • 

* 

m * " <■ 

% 

* ' J • 

0873 8501 

* » * • 

k - 


STA 

M1H 

m \ * 

m m 9 

m m % 

9 



0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 


0875 ADD808 LDA NUM2 LOAD NUM2 

0878 85D4 STA M3L 

087 A ADD908 LDA NUM2+1 

0B7D 85D5 STA M3H 

087F 20 150 A JSR SDIVD DIVIDE NUMBERS 

0882 A908 LDA #>MSG2 WRITE THE ANSWER 

0884 A2B2 LDX #<MSG2 

0886 A006 LDY #MSG3-MSG2 

0888 208D0B JSR SRITE2 

088B 20EB08 JSR SWNUM 

088E 208EFD JSR GROUT 

0891 208EFD JSR CROUT 

0894 5 

0894 5 LOOP IF EITHER INPUT IS NOT ZERO 

0894 ; 


0894 

ADD608 


LDA 

NUM1 

0897 

D010 


BNE 

JTOP 

0899 

ADD708 


LDA 

NUM1+1 

089C 

D00B 


BNE 

JTOP 

089E 

ADD808 


LDA 

NUM2 

08 A 1 

D006 

• 

. BNE 

JTOP 

08A3 

ADD908 


LDA 

NUM2+1 

08A6 

08A8 

0BA9 

D001 

60 

• . 

BNE 

RTS 

JTOP 

08A9 

08AC 

4C0308 

• 

JTOP 

i 

JMP 

TOP 

08AC 

08AC 


5 LOCAL DATA AREAS 

J 

08AC 

C1AAC2 

MSG1 

DC 

C'A*B * » 

08B2 

C1AFC2 

MSG2 

DC 

C’A/B = ’ 

08B8 

C6C9D2 

MSG3 

DC 

C’ FIRST NUMBER : ' 

08C7 

D3C5C3 

MSG4 

DC 

C" SECOND NUMBER: ' 

08D6 


MSGS 

DS 

0 

08D6 

0000 

NUM1 

DC 

l 9 0’ 

08D8 

08DA 

0000 

NUM2 

DC 

END 

1*0’ 

• 


Local Symbol Table 


JTOP 08A9 MSG1 08AC MSG2 
MSG4 08C7 MSG5 08D6 NUM1 
TOP 0803 


08B2 MSG3 
08D6 NUM2 


08B8 

08D8 




0156 

08DA 

. 




' 


0157 

08DA 

- 






0158 

08DA 





- 


0159 

08DA 


********.#.#*.#.**#..**.*********************** 

0160 

08DA 

• 

* 


- 

- 

* 

0161 

08DA 

ft 

* SNOUT - NUMBER OUTPUT TO CRT 

* 

0162 

0BDA 


* 




* 

0163 

08DA 


* inputs: 



* 

0164 

08DA 

** 

* 

Y-A - 

ADDRESS 

OF STRING TO 

* 

0165 

08DA 


* 

- 

WRITE 

, ft 

* 

0166 

08DA 


* 


ft 

* 

* 

0167 

08DA 


* NOTES: 

• 


* 

0168 

08DA 


* 

1) THE STRING 

MUST END WITH A 

* 

0169 

0SDA 


* 


$00 


* 

0170 

08DA 


* 



- 

* 

0171 

08DA 


**************************************** 

0172 

08OA 


* 





0173 

08DA 


SNOUT 

START 

• 

% 

/ 

0174 

08DA 


CQUT 

EQU 

$FDED 

CHARACTER OUTPUT 


0175 

08DA 







0176 

08DA 

8500 


STA 

R0 

SAVE THE ADDRESS 

i 

0177 

08DC 

8401 


STY 

R1 



0178 

08DE 

A000 


LDY 

#0 

OUTPUT THE 


0179 

08E0 

B100 

NT1 

LDA 

<R0> , Y 

CHARACTERS 


0180 

08E2 

F006 


BEQ 

NT2 

- 


0181 

08E4 

20EDFD 


JSR 

COUT 



0182 

08E7 

C8 


I NY 




0183 

08E8 

D0F6 


BNE 

NT1 



0184 

08EA 

60 

NT2 

RTS 




0185 

08EB 



END 





Local Symbol Table 

• • • • • • • • 

CQUT FDED NT1 08E0 NT2 08EA 



0187 

0188 
018? 
0190 
019.1 

0192 

0193 

0194 

0195 

0196 

0197 

0198 
019? 
0200 
0201 
0202 

0203 

0204 

0205 

0206 


08EB 

08EB 

08EB 

08EB 

08EB 

08EB 

08EB 


08EB 

08EB 

08EB 

08EB 

08EB 

08EB 

08EB 

08EB 206D09 
08EE 

08EE 20DA08 
08F1 60 
08F2 


**#****#*<iHt***»*******#******«-**«#***#** 


* * 

* SWNUM - WRITE NUMBER TO SCREEN * 

* * 

* inputs: * 

* MIL - NUMBER TO WRITE * 

* * 

* NOTES: * 

* 1) USES SIWRT AND SNOUT * 

* * 


**************************************** 

* 

SWNUM START 

JSR SIWRT CONVERT THE NUMBER 

! TO A STRING 

JSR SNOUT WRITE THE STRING 

RTS 

END 



0207 

08F2 

ORCA/EZ 1.0 

• 



0001 

0800 

- 

PRINTER ON 



0002 

0800 


KEEP PRQB10. 7. 

.OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 



- 

* 

0005 

0800 

* LISTING 10 

.7 

• 

* 

0006 

0800 

* 




* 

0007 

0800 

* SOLUTION TO PROBLEM 10.7 

* 

0008 

0800 

• 

* 




* 

0009 

0800 

* THIS PROGRAM IS A 

MODIFICATION OF 

* 

0010 

0800 

* THE 

CALCULATOR PROBLEM FROM 

* 

0011 

0800 

* SECTION 10 

-2. IT 

TERMINATES WHEN 

* 

0012 

0800 

* BOTH USER- 

SUPPLIED INPUTS ARE ZERO. 

* 

0013 

0800 

* RESULTS ARE WRITTEN TO THE CRT. 

* 

0014 

0800 

* ALL 

CHANGES MADE 

IN PROBLEMS 10.2 

* 

0015 

0800 

* TO 

10.5 HAVE BEEN 

I NCORPOR ATED 

* 

0016 

0800 

* INTO THIS 

VERS I ON 

m 

* 

0017 

0800 

* 




* 

0018 

0800 

* INPUTS! 



* 

0019 

0800 

* 

NUM1 - FIRST 1 

NUMBER 

* 

0020 

0800 

* 

NUM2 - SECOND 

NUMBER 

* 

0021 

0800 

* 



- 

* 

0022 

0800 

* OUTPUTS: 


• 

* 

0023 

0800 

* 

MESSAGES WITH 

RESULTS 

* 

0024 

0800 

* 



. 

* 

0025 

0800 

* notes: 


. * 

* 

0026 

0800 

* 

1) USES SADD2 

, SDIVD, 5ER0R, 

* 

0027 

0800 

* 


SM0D2, 

SMULT, SREDI, 

* 

0028 

0800 

* 


SRITE, 

SSUB2, AND SWNUM 

* 

0029 

0800 

* 

• 


• 

* 

0030 

0800 

**************************************** 

0031 

0800 

* 





0032 

0800 

MATH 

START 


• 


0033 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0034 

0800 

R1 

GEDU 

*1 

REG I STERS 


0035 

0800 

R2 

GEQU 

*2 



0036 

0800 

R3 

GEQU 

*3 



0037 

0800 

R4 

GEQU 

♦4 

• 


0038 

0800 

R5 

GEQU 

*5 



0039 

0800 

R6 

GEQU 

*6 



0040 

0800 

R7 

GEQU 

*7 

6 


0041 

0800 . 

R8 

GEQU 

48 



0042 

0800 

R9 

GEQU 

49 

• 


0043 

0800 

R10 

GEQU 

4A 

% 


0044 

0800 

Rii 

GEQU 

4B 

. * 


0045 

0800 

R12 

GEQU 

4C 

« 


0046 

0800 

R13 

GEQU 

4D 

‘ 


0047 

0800 

R14 

GEQU 

4E 

• 

* 

0048 

0800 

R15 

GEQU 

4F 



0049 

0800 

MIL 

GEQU 

4D0 

TWO BYTE INTEGER 


0050 

0800 

M1H 

GEQU 

4D1 

MATH REGISTERS 


0051 

0800 

M2L 

GEQU 

4D2 

6 



0052 

0800 

M2H 

GEQU 

4D3 

- 


0053 

0800 

M3L 

GEQU 

4D4 

. . 


0054 

0800 

M3H 

GEQU 

4D5 

• 


0055 

0800 

SIGN 

GEQU 

4D6 



0056 

0800 

CHRAD 

GEQU 

4FE 

CHARACTER ADDRESS 


0057 

0800 

i 

• 

• 

- 

(FOR SRITE) 


0058 

0800 

LINE 

GEQU 

4200 

INPUT BUFFER 




0059 

0800 

• 

PRAX GEQU 

SF941 

WRITE A-X AS HEX 

0060 

0800 


HOME GEQU 

*FC5B 

CLEAR THE SCREEN 

0061 

0800 


GETLN1 GEQU 

*FD6F 

READ WITH NO PROMPT 

0062 

0800 

- 

GOUT GEQU 

SFDED 

OUTPUT A CHARACTER 

0063 

0800 


CROUT GEQU 

SFD8E 

DO A RETURN 

0064 

0800 


m 

9 



% * 

9 t 

0065 

0800 

- 

m 

READ THE 

NUMBERS 

FROM THE KEYBOARD 

0066 

0800 


m 

9 

• 



0067 

0800 

2058FC 


JSR 

HOME 

CLEAR THE SCREEN 

0068 

0803 

A909 

TOP LDA 

#>MSG3 

WRITE THE PROMPT 

0069 

0805 

A23F 


LDX 

#<MSG3 

• 

0070 

0807 

A00F 


LDY 

#MSG4-MSG3 

0071 

0809 

209F0C 


JSR 

SRITE2 

- 

0072 

080C 

9 

206FFD 


JSR 

GETLN 1 

• 9 . t 

0073 

080F 

A902 


LDA 

# >L I NE 

CONVERT THE STRING 

0074 

0811 

8501 


STA 

R1 

• 9 

0075 

0813 

A900 


LDA 

#<LINE 


0076 

0815 

8500 


STA 

R0 


0077 

0817 

20A50B 


JSR 

SREDI 

: 

0078 

081A 

A5D0 


LDA 

MIL 

SAVE THE RESULT 

0079 

081C 

8D7B09 


STA 

NUM 1 

. 

0080 

081F 

A5D1 


LDA 

M1H 

* • 

0081 

0821 

8D7C09 


STA 

NUM1+1 


0082 

0824 





' , • 

0083 

0824 

A909 


LDA 

# >MSG4 

WRITE THE PROMPT 

0084 

0826 

A24E 


LDX 

#<MSG4 


0085 

0828 

A00F 


LDY 

#MSG5— MSG4 

0086 

0B2A 

209F0C 


JSR 

SRITE2 

• 

0087 

082D 

206FFD 


JSR 

GETLN 1 

_ * • 

0088 

0830 

A902 


LDA 

#>LINE 

CONVERT THE STRING 

0089 

0832 

8501 


STA 

R1 

• 

0090 

0834 

A900 


LDA 

#<LINE 

• 

0091 

0836 

8500 


STA 

R0 

- 

0092 

0838 

20A50B 


JSR 

SREDI 

* . . . # 

0093 

083B 

A5D0 


LDA 

MIL 

SAVE THE RESULT 

0094 

083D 

SD7D09 

• 

STA 

NUM2 


0095 

0840 

A5D1 


LDA 

M1H 

• 

0096 

0842 

SD7E09 


STA 

NUM2+1 

• 

0097 

0845 


• 



• 

0098 

0845 


m 

ADD THE NUMBERS AND WRITE THE 

0099 

0845 


m 

9 

ANSWER 


* 

0100 

0845 


m 

9 



• “ • S 

% • 

0101 

0845 

AD7B09 


LDA 

NUM1 

LOAD NUM1 

0102 

0848 

85D0 


STA 

MIL 

• 

0103 

084A 

AD7C09 


LDA 

NUM1+1 

. 

0104 

084D 

85D1 


STA 

M1H 


0105 

084F 

AD7D09 


LDA 

NUM2 

LOAD NUM2 

0106 

0852 

65D4 


STA 

M3L 

• 

0107 

0854 

AD7E09 


LDA 

NUM2+1 

• 

0108 

0857 

85D5 


STA 

M3H 

• • 

0109 

0859 

207F09 


JSR 

SADD2 

ADD NUMBERS 

0110 

085C 

208009 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0111 

085F 

A909 


LDA 

#>MSB5 

WRITE THE ANSWER 

0112 

0861 

A25D 


LDX 

#<MSG5 

‘ 

0113 

0863 

A00A 


LDY 

#MSG6— MSG5 

0114 

0865 

209F0C 


JSR 

SR I TE2 


0115 

0868 

200 109 


JSR 

SWNUM 

- 

0116 

* 

086B 

20SEFD 


JSR 

CROUT 

* ■ 

0117 

086E 


• 

9 



* 

0118 

086E 


; 

SUBTRACT 

THE NUMBERS ANR WRITE THE 



* 

% 

4 

k 

0119 

086E 

k 

k 

• k 

m 

% . 

* 

^ANSWER 

4 

# • k 

4 

4 

k 

_ * k 

0120 

086E 

. 

a 

9 




0121 

086E 

AD7B09 


LDA 

NUM1 

LOAD NUM 1 

0122 

0871 

85D0 


STA 

MIL 


0123 

0873 

AD7C09 


LDA 

NUM1+1 

4 

0124 

0876 

85D1 


STA 

M1H 


0125 

0878 

AD7D09 


LOA 

NUM2 

LOAD NUM2 

0126 

087B 

85D4 


STA 

M3L 


0127 

087D 

AD7E09 


LOA 

NUM2+ 1 

. 

0128 

0880 

85D5 


STA 

M3H 

to 

0129 

0882 

20C309 


JSR 

SSUB2 

SUBTRACT NUMBERS 

0130 

0885 

208D09 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0131 

0888 

A909 


LDA 

#>MSS6 

WRITE THE ANSWER 

0132 

088A 

A267 


LDX 

#<MSG6 

* 

0133 

088C 

A00A 


LDY 

#MSG7-MSG6 

0134 

088E 

209F0C 


JSR 

SRITE2 


0135 

0891 

20D109 


JSR 

SWNUM 

• 

0136 

0894 

208EFD 


JSR 

CROUT 

• 

0137 

0897 


m 

9 




0138 

0897 


m 

9 

MULTIPLY 

THE NUMBERS AND WRITE THE 

0139 

0897 


• 

9 

ANSWER 



0140 

0897 


a 

9 



• 

0141 

0897 

AD7B09 


LDA 

NUM1 

LOAD NUM1 

0142 

089A 

85D0 


STA 

MIL 


0143 

089C 

AD7C09 


LDA 

NUM1+1 


0144 

089F 

85D1 


STA 

M1H 


0145 

08 A 1 

AD7D09 


LDA 

NUM2 

LOAD NUM2 

0146 

08A4 

85D4 


STA 

M3L 

§ 

0147 

08A6 

AD7E09 


LDA 

NUM2+1 

• ■ 

0148 

08A9 

85D5 


STA 

M3H 


0149 

08AB 

200F0C 


JSR 

SMULT 

MULTIPLY NUMBERS 

0150 

08AE 

208D09 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0151 

08B1 

A909 


LDA 

#>MSG1 

WRITE THE ANSWER 

0152 

0BB3 

A22B 


LDX 

#<MSG1 


0153 

08B5 

A00A 


LDY 

#MSG2-MSG1 

0154 

08B7 

209F0C 


JSR 

SR I TE2 


0155 

08BA 

20D109 


JSR 

SWNUM 


0156 

08BD 

208EFD 


JSR 

CROUT 


0157 

08C0 


\ 




0158 

08C0 


a 

9 

DIVIDE THE NUMBERS AND WRITE THE 

0159 

08C0 

• 

■ 

9 

ANSWER 



0160 

08C0 


a 

9 




0161 

08C0 

AD7B09 


LOA 

NUM1 

LOAD NUM1 

0162 

08C3 

85D0 


STA 

MIL 


0163 

08C5 

AD7C09 

• 

LDA 

NUM1+1 

k 

0164 

08C8 

85D1 


STA 

M1H 

• . • 

0165 

08CA 

AD7D09 


LDA 

NUM2 

LOAD NUM2 

0166 

08CD 

8504 


STA 

M3L 

\ 

0167 

08CF 

AD7E09 

• 

% 

LDA 

NUM2+1 


0168 

08D2 

8505 


STA 

M3H 

• 

0169 

08D4 

20270B 


JSR 

SDIVD 

DIVIDE NUMBERS 

0170 

08D7 

208009 


JSR 

SEROR 

CHECK FOR OVERFLOW 

0171 

08DA 

A909 


LDA 

#>MSG2 

WRITE THE ANSWER 

0172 

08DC 

A235 


LDX 

#<MSG2 


0173 

08DE 

A00A 


LDY 

#MSG3-MSG2 

0174 

08E0 

209F0C 


JSR 

SRITE2 

k 

0175 

08E3 

200109 


JSR 

SWNUM 


0176 

08E6 

208EFD 


JSR 

CROUT 


0177 

08E9 

- 

■ a 

9 




0178 

4 

k 

• k 

- A » 

k 

08E9 

k 

9 

TAKE THE 

MODULUS 

OF THE NUMBERS AND 

k 

— k 



0179 

08E9 


0180 

08E9 


0181 

08E9 

AD7B09 

0182 

08EC 

85D0 

0183 

08EE 

AD7C09 

0184 

08F1 

85D1 

0185 

08F3 

AD7D09 

0186 

08F6 

85D4 

0187 

08F8 

AD7E09 

0188 

0BFB 

85D5 

0189 

08FD 

20A609 

0190 

0900 

208D09 

0191 

0903 

A909 

0192 

0905 

A271 

0193 

0907 

A00A 

0194 

0909 

209F0C 

0195 

090C 

20D109 

0196 

090F 

208EFD 

0197 

0912 

60 

0198 

0913 


0199 

091 3 


0200 

0913 


0201 

0913 

AD7B09 

0202 

0916 

D010 

0203 

0918 

AD7C09 

0204 

09 IB 

D00B 

0205 

09 ID 

AD7D09 

0206 

0920 

D006 

0207 

0922 

AD7E09 

0208 

0925 

D001 

0209 

0927 

60 

0210 

0928 


0211 

0928 

4C0308 

0212 

092B 


0213 

092B 


0214 

092B 


0215 

092B 

C1A0A0 

0216 

0935 

C 1 A0A0 

0217 

093F 

C6C9D2 

0218 

094E 

D3C5C3 

0219 

095D 

C1A0A0 

0220 

0967 

C1A0A0 

0221 

0971 

C1A0CD 

0222 

097B 


0223 

097B 

0000 

0224 

097D 

0000 

0225 

097F 



; WRITE THE ANSWER 
5 



LDA 

NUMi 

LOAD NUMI 



STA 

MIL 




LDA 

NUM1+1 




STA 

M1H 

- 



LDA 

NUM2 

LOAD NUM2 


• 

STA 

M3L 


. 


LDA 

NUM2+ 1 


* 


STA 

M3H 




JSR 

SM0D2 

MOD NUMBERS 


JSR 

SEROR 

CHECK FOR 

OVERFLOW 

• 

LDA 

# >MSG7 

WRITE THE 

ANSWER 


LDX 

#<MSG7 



• 

LDY 

#MSG8—MSG7 



JSR 

SRITE2 


. 


JSR 

SWNUM 




JSR 

CROUT 



m 

RTS 

• 




9 

5 LOOP IF 
• 

EITHER INPUT IS NOT 

ZERO 


LDA 

NUMI 




BNE 

JTOP 




LDA 

NUM1+1 




BNE 

JTOP 

' 



LDA 

NUM2 


• 


BNE 

JTOP 




LDA 

NUM2+1 

* 

• 


BNE 

JTOP 


• 


RTS 




JTOP 

t 

JMP 

TOP 




5 LOCAL DATA AREAS 
I 


MSG1 

DC 

C’A * 

B = ' 

MSG2 

DC 

C’A / 

B = ’ 

MSG3 

DC 

C F FIRST 

NUMBER : ’ 

MSG4 

DC 

C” SECOND NUMBER: * 

MSG5 

DC 

C’A + 

B = F 

MSG6 

DC 

C’A - 

B = ’ 

MSG7 

DC 

C’A MOD 

B a * 

MSG8 

DS 

0 


NUMI 

DC 

1*0’ 

• 

NUM2 

DC 

END 

I’0 F 



Local 

Symbol Table 



* 

• 


JTOP 

MSG4 

MSGS 

% 

0928 

094E 

097B 

MSG1 

MSGS 

NUMI 

092B 

095D 

097B 

• 

MSG2 

MSG6 

NUM2 

• 

0935 

0967 

097D 

MSG3 

MSG7 

TOP 


093F 

0971 

0803 



* 

- 

% 



• 

. • * 

* 

4 

4 

s 

» . r 
* 

• 4 

• " • % 

0357 

09D1 

* 

- 



• * 

* 

0358 

09D1 

' 

**************************************** 

0359 

09D1 


* 



* 

0360 

09D1 


* SWNUM - WRITE NUMBER TO SCREEN * 

0361 

09D1 


* 



* 

0362 

09D1 

- 

* inputs: 


# 

0363 

09D1 


* 

MIL - 

NUMBER 

TO WRITE * 

0364 

09D1 


* 



* 

0365 

09D1 

• 

* outputs: 


* 

0366 

09D1 


* 

NUMBER IN DECIMAL AND HEX FORM * 

0367 

09D1 


* 



* 

0368 

09D1 


* notes: 


# 

0369 

09D1 


* 

1) USES SIWRT 

AND SNOUT * 

0370 

09D1 


* 



* 

0371 

09D1 


************#^******#***************#*** 

0372 

09D1 


* 



* 

0373 

09D1 


SWNUM 

START 


4 

0374 

09D1 

• 

PRAX 

EQU 

♦F941 

PRINT A-X 

% 

0375 

09D1 


CROUT 

EQU 

♦FD8E 

WRITE A CR 

0376 

09D1 

_ % 

COUT 

EQU 

♦FDED 

WRITE A CHAR 

0377 

09D1 






0378 

09D1 

A5D0 . 


LDA 

MIL 

SAVE THE NUMBER 

0379 

09D3 

BD020A 


STA 

NUM1 

• 

0380 

09D6 

A5D1 


LDA 

M1H 


0381 

0908 

8D030A 


STA 

NUM1+1 


0382 

09DB 

207F0A 


JSR 

SIWRT 

WRITE AS A DECIMAL 

0383 

09DE 

20B209 


JSR 

SNOUT 

NUMBER 

0384 

09E1 

A9A0 


LDA 


• 

0385 

09E3 

20EDFD 


JSR 

COUT 


0386 

09E6 

A9A8 


LDA 

r 

• 

03B7 

09E8 

20EDFD 


JSR 

COUT 

‘ 

0388 

09EB 

A9A4 


LDA 

* 9 % 9 


0389 

09ED 

20EDFD 


JSR 

COUT 


0390 

09F0 

AD030A 


LDA 

NUM1+1 

• 

0391 

09F3 

AE020A 


LDX 

NUM1 

• • 

0392 

09F6 

204 1F9 


JSR 

PRAX 

• • 

0393 

09F9 

A9A9 


LDA 

#’> " 

• • 

0394 

09FB 

20EDFD 


JSR 

COUT 


0395 

09FE 

208EFD 


JSR 

CROUT 

. 

0396 

0A01 

60 


RTS 



0397 

0A02 





9 

0398 

0A02 

0000 

NUM1 

DS 

2 

NUMBER STORAGE AREA 

0399 

0A04 

• 

• 

END 



1 Local 

Symbol Table 




• • 4 

y 

COUT 


FDED CRQUT 

FD8E 

NUM1 

0A02 PRAX F941 

i 

i 

1 

• 

* 

* 

• 

* 



* 

9 

9 m 

* 

* 

% 

* 

• v 

m 4 

* 

9 

> * 


• • % 

* " » 



1 

ORCA/EZ 1.0 


0001 

0800 


PRINTER ON 

m 9 

% • 

% 


0002 

0800 

• 

KEEP 

PRQBU. 1 

.OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 



• 

* 

0005 

0800 

* LISTING 11.1 

. * , 

9 

* 

0006 

0800 

* 



• 

* 

0007 

0800 

* SOLUTION 

TO PROBLEM 11.1 

* 

* 

0008 

0800 

* 



% 

* 

0009 

0800 

* THIS PROGRAM READS A HEX NUMBER 

* 

0010 

0800 

* FROM THE 

KEYBOARD 

, CONVERTS IT TO 

* 

0011 

0800 

a 

* THE 

INTERNAL FORMAT, AND WRITES IT 

# 

0012 

0800 

* BACK OUT. 

V 


* 

0013 

0800 

* 



• 

* 

0014 

0800 

* inputs: 


• • 

* 

0015 

0800 

* 

NUMBER FROM THE KEYBOARD 

* 

0016 

0B00 

* 




* 

0017 

0800 

* outputs: 


. - * 

* 

0018 

0800 

* 

R0 - 

INTERNAL 

VERSION OF 

* 

0019 

0800 

# 


NUMBER 

- 

* 

0020 

0800 

* 

NUMBER WRITTEN TO SCREEN 

* 

0021 

0800 

* 


• 


* 

0022 

0800 

* NOTES: 


• 

* 

0023 

0800 

* 

1) USES SHXIN 

, SWNUM 

* 

0024 

0800 

* 



V 

* 

0025 

0800 

**************************************** 

0026 

0800 

* 


•• 

• 


0027 

0800 

Pill 

START 

• 


0028 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0029 

0800 

R1 

GEQU 

*1 

REGISTERS 


0030 

0800 

R2 

GEQU 

*2 

• " *1 


0031 

0800 

R3 

GEQU 

*3 

* 


0032 

0800 

R4 

GEQU 

*4 



0033 

0800 

R5 

GEQU 

♦5 



0034 

0800 ' 

R6 

GEQU 

$6 



0035 

0800 

R7 

GEQU 

S7 

• • • 


0036 

0800 

R8 • 

GEQU 

$8 



0037 

0800 

R9 

GEQU 

$9 



0038 

0800 

R10 

GEQU 

SA 

* • • 


0039 

0800 

Rll 

GEQU 

SB 

• 

* 

0040 

0800 

R12 

GEQU 

SC 

• * 


0041 

0800 

R13 

GEQU 

SD 



0042 

0800 

R14 

GEQU 

SE 



0043 

• 

0800 

R15 

GEQU 

SF 



0044 

0800 

PROMPT 

GEQU 

S33 

PROMPT CHARACTER 


0045 

0800 

MIL 

GEQU 

SD0 

TWO BYTE INTEGER 


0046 

0800 

M1H 

GEQU 

SD1 

MATH REGISTERS 


0047 

0800 

M2L 

GEQU 

SD2 

• 


0048 

0800 

M2H 

GEQU 

. SD3 



0049 

0800 

M3L 

GEQU 

SD4 

- • ’ 

• m m 


0050 

0800 

M3H 

GEQU 

SD5 

• • • 

“ 

0051 

0800 

SIGN 

GEQU 

SD6 

- 


0052 

0800 

CHRAD 

GEQU 

SFE 

CHARACTER ADDRESS 


0053 

0800 

i 

• 


- 

<FOR SRITE) 

9 

0054 

0800 

LINE 

EQU 

S200 

INPUT BUFFER 


0055 

0800 

HOME 

GEQU 

SFC58 

CLEAR THE SCREEN 


0056 

0800 

GETLN 

EQU 

SFD6A 

READ A LINE 


0057 

0800 

GROUT 

GEQU 

SFD8E 

DO A RETURN 


0058 

0800 




- 




0059 

0800 

2058FC 

JSR 

HOME 

CLEAR THE SCREEN 

0060 

0803 

A9C0 

LDA 


SET THE PROMPT 

0061 

0062 

0805 

0807 

8533 

STA 

PROMPT 

CHARACTER 

0063 

0807 

206AFD TOP 

JSR 

GETLN 

READ A LINE 

0064 

080A 

A900 

LDA 

#<LINE 

CONVERT TO HEX 

0065 

080C 

8500 

STA 

R0 


0066 

080E 

A902 

LDA 

#>LINE 


0067 

0810 

8501 

STA 

R1 


0068 

0812 

203A08 

JSR 

SHXIN 


0069 

0815 

207E08 

JSR 

SWNUM 

WRITE IT OUT AGAIN 

0070 

0818 

208EFD 

JSR 

GROUT 

• 

0071 

08 IB 

208EFD 

JSR 

CROUT 


0072 

0073 

9 

08 IE 
0821 

4G0708 

JMP 

END 

TOP 


Local 

Symbol Table 



• • 


GETLN 


FD6A LINE 


0200 TOP 


0807 



0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 

0821 


0824 

0826 

0828 

0829 


B100 

CQ 

C9A0 

F0F9 

60 


t " • 


* ♦ 

* SGETC - GET A NON-BLANK CHARACTER * 

* * 

* INPUTS: * 

* Y - POINTS TO NEXT CHAR * 

* * 

* outputs: * 

* A - CHARACTER * 

* Y - UPDATED * 

* * 


*******#*********■**•*■**•*■**■#■■**■#**■*•*•*■*■**•*•** 


* 



% • 

SGETC 

START 


4 

LB1 

LDA 

<R0> , Y 

GET CHAR 


INY 


POINT TO NEXT ONE 


CMP 

#' 51 

DO IT AGAIN IF THIS 


BEQ 

LB1 

ONE IS BLANK 


RTS 

• 

• 


END 




Local Symbol Table 


LB1 


0821 


0097 0829 

0098 0829 

0099 0829 ******************************************** 


0100 

0829 


* 

• 


* 

0101 

0829 


* 

SHXID - 

SEE IF CHARACTER IS HEX 

* 

0102 

0829 


* 



* 

0103 

0829 


* 

inputs: 


# 

0104 

0829 


* 

A - 

CHARACTER TO CHECK 

* 

0105 

0829 


* 



* 

0106 

0829 


* 

OUTPUTS: 


* 

0107 

0829 


* 

C - 

SET IF HEX, ELSE CLEAR 

* 

0108 

0829 


* 


- 

* 

0109 

0829 


* 

notes: 


# 

0110 

0829 


* 

1) USES SNMID 

* 

0111 

0829 


* 



* 

0112 

0829 


a-**********************-****-*******-****** 

0113 

0829 


* 


• 


0114 

0829 


SHXID START 


0115 

0829 






0116 

0829 

203A0B 


JSR 

SNMID 


0117 

082C 

B00B 


BCS 

RTS 


0118 

082E 

C9C1 


CMP 

#’ A’ 


0119 

0830 

9007 


BLT 

• RTS 


0120 

0832 

C9C7 


CMP 

#•“ G' 


0121 

0834 

9002 


BLT 

OK 


0122 

0836 

18 


CL C 



0123 

0837 

60 


RTS 



0124 

0838 




. 


0125 

0838 

38 

OK 

SEC 



0126 

0839 

60 

RTS RTS 



0127 

083A 



END 




Local Symbol Table 
OK 0838 RTS 0839 



0128 

083A 





0129 

083A 





0130 

083A 

**************************************** 

0131 

083A 

• 

* 



* 

0132 

083A 

* 

SHXIN - 

HEX INPUT 

* 

0133 

083A 

* 


• 

* 

0134 

083A 

* 

inputs: 


* 

0133 

083A 

* 

R0 - ADDRESS I 

OF STRING * 

0136 

083A 

* 



* 

0137 

083A 

* 

OUTPUTS: 

• 

* 

0138 

083A 

* 

MIL 

- RESULTING BINARY NUMBER * 

0139 

083A 

* 

V - 

SET IF ERROR * 

0140 

083A 

* 



* 

0141 

083A 

* 

NOTES: 


* 

0142 

083A 

* 

1) USES SGETC 

, SHXID, SHXNM * 

0143 

083A/ 

* 



* 

0144 

083A 

**************************************** 

0145 

083A 

* 




0146 

083A 

SHXIN START 


0147 

083A 





0148 

083A A000 


LDY 

#0 

M1L=0 

0149 

083C 84D0 


STY 

MIL 

• 

0150 

083E 84D1 


STY 

M1H 

. 

0151 

0840 202108 

LB1 

JSR 

SGETC 

GET A NON-BLANK . 

0152 

0843 

i 

* 



CHARACTER 

0153 

0843 202908 


JSR 

SHXID 

SEE IF IT'S HEX 

0154 

0846 9015 


BCC 

LB3 


0155 

0848 206408 


JSR 

SHXNM 

YES - CHANGE CHAR 

0156 

084 B 

* 

• 



TO NUMBER 

0157 

084B 0A 


ASL 

A 

PLACE IN HIGH 

0158 

084C 0A 


ASL 

A 

NIBBLE 

0159 

0840 0A 


ASL 

A 


0160 

084E 0A 


ASL 

A 

•• 

0161 

084F A204 

• 

LDX 

#4 

USE X TO AVOID 

0162 

0851 0A 

LB2 

ASL 

A 

MESSING UP GETCHAR 

0163 

0852 26D0 


ROL 

MIL 

■ 

0164 

0854 2601 


ROL 

A • 

M1L+1 

* 

0165 

0856 B007 

• 

BCS 

ERR 

BRANCH IF OVERFLOW 

0166 

0858 CA 


. DEX 

• 


0167 

0859 D0F6 

* 

BNE 

LB2 


0168 

085B F0E3 


BEQ 

LB1 


0169 

0850 





0170 

0850 B8 

LB3 

CLV 



0171 

085E 60 


RTS 


- 

0172 

085F 





0173 

085F A980 

ERR 

LOA 

#*80 

NO SEV INSTRUCTION, 

0174 

0861 6980 


ADC 

#*80 

SO USE A TRICK 

0175 

0863 60 


RTS 



0176 

0864 


END 




\ 

Local Symbol Table 

I 

ERR 085F LB1 0840 LB2 0851 LB3 08SD 



0177 

0864 





0178 

0864 





0179 

0864 


**************************************** 

0180 

0864 


* 

- 

* 

0181 

0864 


* 

SHXNM - CHANGE HEX CHAR TO NUMBER 

* 

0182 

0864 


* 


* 

0183 

0864 


* 

inputs: 

* 

0184 

0864 


* 

A - CHARACTER 

* 

0185 

0864 


* 


* 

0186 

0864 


* 

OUTPUTS: 

* 

0187 

0864 


* 

A - NUMBER 

* 

0188 

0864 


* 

" 

* 

0189 

0864 


**************************************** 

0190 

0864 


* 

* 


0191 

0864 

• 

SHXNM START 


0192 

0864 





0193 

0864 

C9C1 


CMP tt’A’ 


0194 

0866 

9002 

A 

BLT HX1 


0195 

0868 

E907 


SBC #* A' — ’ 9* — 1 


0196 

086A 

290F 

HX1 

AND #7.00001111 


0197 

086C 

60 


RTS 


0198 

086D 

• 


END 

V • t 


Local 

Symbol Table 





HX1 


086A 



**************************************** 


* SNOUT - NUMBER OUTPUT TO CRT * 

* * 

* INPUTS: * 

* Y-A - ADDRESS OF STRING TO * 

* WRITE * 

* * 

* NOTES: * 

* 1) THE STRING MUST END WITH A * 

* $00 * 


**************************************** 


0199 

086D 


0200 

086D 


0201 

086D 


0202 

086D 


0203 

086D 


0204 

086D 


0205 

086D 


0206 

086D 

• 

0207 

086D 


0208 

086D 


0209 

086D 


0210 

086D 


0211 

086D 


0212 

086D 


0213 

086D 


0214 

086D 


0215 

086D 


0216 

086D 


0217 

086D 


0218 

086D 

8500 

0219 

086F 

8401 

0220 

0871 

A000 

0221 

0873 

B100 

0222 

0875 

F006 

0223 

0877 

20EDFD 

0224 

087A 

C8 

0225 

087B 

D0F6 

0226 

087D 

60 

0227 

087E 



* 



SNOUT 

START 


COUT 

EQU 

$FDED 


STA 

R0 


STY 

R1 


LDY 

#0 

NT1 

LDA 

CR0> , Y 


BEQ 

NT2 


JSR 

INY 

COUT 


BNE 

NT1 

NT2 

RTS 

END 

' 


CHARACTER OUTPUT 

SAVE THE ADDRESS 

OUTPUT THE 
CHARACTERS 


Local Symbol Table 

COUT FDED NT1 0873 NT2 0S7D 



0228 

0229 

0230 

0231 


022 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 


0B7E 

087E 

087E 

087E 

087E 

087E 

087E 

087E 

087E 

087E 

087E 

0B7E 

087E 

087E 

087E 

087E 


**************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SWNUM - WRITE NUMBER TO SCREEN 

inputs: 

MIL - NUMBER TO WRITE 
OUTPUTS: 

NUMBER IN DECIMAL AND HEX FORM 
NOTES: 

1) USES SIWRT AND SNOUT 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


**************************************** 


0244 

087E 


* 



0245 

087E 


SWNUM 

START 


0246 

087E 


PRAX 

EQU 

*F941 

0247 

087E 


COUT 

EQU 

*FDED 

0248 

087E 





0249 

087E 

A5D0 


LDA 

MIL 

0250 

0880 

8DAF08 


STA 

NUM1 

0251 

0883 

A5D1 


LDA 

M1H 

0252 

0885 

8DB008 


STA 

NUM1+1 

0253 

0888 

202C09 


JSR 

SIWRT 

0254 

088B 

206D08 


JSR 

SNOUT 

0255 

088E 

A9A0 


LDA 

#’ ’ 

0256 

0890 

20EDFD 

• 

JSR 

COUT 

0257 

■ 

0893 

A9A8 


LDA 

<’ 

0258 

0895 

20EDFD 


JSR 

COUT 

0259 

0898 

A9A4 


LDA 


0260 

089A 

20EDFD 


JSR 

COUT 

- 0261 

089D 

ADB008 

. • • 

LDA 

NUM1+1 

0262 

08A0 

AEAF08 


LDX 

NUM1 

0263 

08A3 

204 1 F9 


JSR 

PRAX 

0264 

08A6 

A9A9 


LDA 

#’ ) * 

0265 

08A8 

20EDFD 


JSR 

COUT 

0266 

08AB 

208EFD 


JSR 

CROUT 

0267 

08AE 

60 


RTS 


0268 

08AF 





0269 

0SAF 

0000 

NUM1 

DS 

2 

0270 

08B1 



END 

• 


PRINT A-X 
WRITE A CHAR 

SAVE THE NUMBER 


WRITE AS A DECIMAL 
NUMBER 


NUMBER STORAGE AREA 


Local Symbol Table 

• • 

COUT FDED NUM1 




PR AX 


F941 


NOTE: SADD2, SEROR, SMODZ, SMOUT, and SSUB2 as in other listings 



0001 

0800 


PRINTER ON 


0002 

0800 


KEEP PR0B1 1.2. OBJ 


0003 

0800 

************#***********************.,,.***. 

0004 

0800 

* 


* 

0005 

0800 

* 

LISTING 11.2 


0006 

0800 

* 


JL 

0007 

0800 

* 

SOLUTION TO PROBLEM 11.2 

* 

0008 

0800 

* 


* 

0009 

0800 

* 

THIS PROGRAM IS A MODIFICATION OF 

* 

0010 

0800 

* 

THE CALCULATOR PROBLEM FROM 

# 

001 1 

0800 

* 

SECTION 10-2. IT TERMINATES WHEN 

# 

0012 

0800 

* 

BOTH USER-SUPPLIED INPUTS ARE ZERO. 

* 

0015 

0800 

* 

RESULTS ARE WRITTEN TO THE CRT. 

* 

0014 

0800 

* 

ALL CHANGES MADE IN PROBLEMS 10.2 

* 

0015 

0800 

* 

TO 10.5 HAVE BEEN INCORPORATED 

* 

0016 

0800 

* 

INTO THIS VERSION. BOTH HEX AND 

* 

0017 

0800 

* 

DECIMAL INPUT IS ALLOWED. 

* 

0018 

.0800 

* 


* 

0019 

0800 

* 

INPUTS: 

#v 

* 

0020 

0800 

* 

NUM1 - FIRST NUMBER 

* 

0021 

0800 

* 

NUM2 - SECOND NUMBER 

# 

0022 

0800 

* 

• 

* 

0023 

0800 

* 

outputs: 

* 

0024 

0800 

* 

MESSAGES WITH RESULTS 

* 

0025 

0800 

* 


# 

0026 

0800 

* 

NOTES : 

* 

0027 

0800 

* 

n USES SADD2, SDIVD, SEROR, 

* 

0028 

0800 

* 

SGETC, SHXID, SHXIN, 

* 

0029 

0800 

* 

SHXNM, SM0D2, SMULT, 

* 

0030 

0800 

# 

SREDI, SRNUM, SRITE, 

* 

0031 

0800 

* 

SSUB2, AND SWNUM 

* 

0032 

0800 

* 

2) THE SUBROUTINES SHXID, 

# 

0033 

0800 

*• 

SHXIN, AND SHXNM ARE 

* 

0034 

0800 

* 

FOUND IN THE LIBRARY 

# 

0035 

0800 

* 

SUBS. HEX, WHICH WAS 

* 

0036 

0800 

* 

NECESSARY TO AVOID TEXT 

* 

0037 

0800 

* 

BUFFER OVERFLOW 

* 

0038 

0800 

* 


* 

0039 

0800 

****#*#***#*#****#*#***4H(-*#**#*#****#**# 

0040 

0800 

* 



0041 

0800 

MATH START 


0042 

0800 

R0 

GEQU *0 GENERAL PURPOSE 


0043 

0800 

R1 

GEQU $1 REGISTERS 


0044 

0800 

R2 

GEQU S 2 


0045 

0800 

R3 

GEQU *3 


0046 

0800 

R4 

GEQU *4 


0047 

0800 

R5 

GEQU *5 


0048 

0800 

R6 

GEQU $6 


0049 

0800 

R7 

GEQU *7 


0050 

0800 

R8 

GEQU $8 


0051 

0800 

R9 

GEQU *9 


0052 

0800 

R10 

GEQU SA 


0053 

0800 

Rll 

GEQU SB 


0054 

0800 

R12 

GEQU SC 


0055 

0800 

R13 

GEQU SD 


0056 

0800 

R14 

GEQU SE 


0057 

0800 

R15 

GEQU SF 


0058 

0800 

MIL 

GEQU SD0 TWO BYTE INTEGER 




0059 

0800 


M1H 

GEQU 

0060 

0800 


M2L 

GEQU 

0061 

0800 


M2H 

GEQU 

0062 

0800 


M3L 

GEQU 

0063 

0800 


M3H 

GEQU 

0064 

0800 


SIGN 

GEQU 

0065 

0800 


CHRAD 

GEQU 

0066 

0800 


i 


0067 

0800 


LINE 

GEQU 

0068 

0800 

- 

PR AX 

GEQU 

0069 

0800 


HOME 

GEQU 

0070 

0800 


GETLN1 

GEQU 

0071 

0800 


COUT 

GEQU 

0072 

0800 


CROUT 

GEQU 

0073 

0800 


■ 

9 


0074 

0800 


5 READ THE 

0075 

0800 


• 

9 


0076 

0800 

2058FC 


JSR 

0077 

0803 

A909 

TOP 

LDA 

0078 

0805 

A23F 


LDX 

0079 

0807 

A00F 


LDY 

0080 

0809 

20010D 


JSR 

0081 

080C 

206FFD 


JSR 

0082 

080F 

A902 


LDA 

0083 

0811 

8501 


STA 

0084 

0813 

A900 


LDA 

0085 

0815 

8500 


STA 

0086 

0817 

20BA09 

• 

JSR 

0087 

081A 

A5D0 


LDA 

0088 

08 1C 

8D7B09 


STA 

1 T\ W 

0089 

081F 

A5D1 


LDA 

0090 

0821 

8D7C09 


STA 

0091 

0824 




0092 

0824 

A909 


LDA 

0093 

0826 

A24E 


LDX 

0094 

0828 

A00F 


LDY 

0095 

082A 

20010D 


JSR 

0096 

082D 

206FFD 


JSR 

0097 

0830 

A902 

• 

LDA 

0098 

0832 

8501 


STA 

0099 

0834 

A900 


LDA 

0100 

0836 

8500 


STA 

0101 

0838 

20BA09 


JSR 

0102 

083B 

A5D0 


LDA 

0103 

083D 

8D7D09 


STA 

0104 

0840 

A5D1 


LDA 

0105 

0842 

8D7E09 


STA 

0106 

0845 


m 

f 


0107 

0845 


5 ADD 

THE 

0108 

0845 


5 ANSWER 

0109 

0845 


l 


0110 

0845 

AD7B09 

• 

LDA 

0111 

0848 

85D0 


STA 

0112 

084A 

AD7C09 


LDA 

0113 

084D 

85D1 


STA 

0114 

084F 

AD7D09 


LDA 

0115 

0852 

85D4 


STA 

0116 

0854 

AD7E09 


LDA 

0117 

0857 

85D5 


STA 

0118 

0859 

207F09 


JSR 


*D1 

$D2 

$D3 

$D4 

*D5 

$D6 

MATH REGISTERS 

*FE 

CHARACTER ADDRESS 
<FOR SRITE) 

$200 

INPUT BUFFER 

$F941 

WRITE A-X AS HEX 

$FC58 

CLEAR THE SCREEN 

*FD6F 

READ WITH NO PROMPT 

$FDED 

OUTPUT A CHARACTER 

*FD8E 

DO A RETURN 

NUMBERS 

FROM THE KEYBOARD 

HOME 

CLEAR THE SCREEN 

#>MSG3 

#<MSG3 

WRITE THE PROMPT 

#MSG4-MSG3 

SR I TE2 

GETLN1 

#>LINE 

R1 

#<LINE 

R0 

SRNUM 

CONVERT THE STRING 

MIL 

NUM1 

M1H 

NUM1+1 

SAVE THE RESULT 

#>MSG4 

4KMSG4 

WRITE THE PROMPT 

#MSG5-MSG4 

SR I TE2 

GETLN1 

#>LINE 

R1 

#<LINE 

R0 

SRNUM 

CONVERT THE STRING 

MIL 

NUM2 

M1H 

NUM2+1 

SAVE THE RESULT 

ft 


NUMBERS AND WRITE THE 


NUM1 LOAD NUM1 

MIL 

NUM1+1 

M1H 

NUM2 LOAD NUM2 

M3L 

NUM2+1 

M3H 

SADD2 ADD NUMBERS 



0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


085C 208D09 

085F A909 

0861 A25D 

0863 A00A 

0865 200 10D 

0868 20EF09 

086B 208EFD 

086E 

086E 

086E 

086E 

086E AD7B09 
0871 8500 
0873 AD7C09 
0876 85D1 
0878 AD7D09 
087B 8504 
087D AD7E09 
0880 85D5 
0882 20E109 
0885 208D09 
0888 A909 
08BA A267 
088C A00A 
0B8E 200100 
0891 20EF09 
0894 208EFD 
0897 
0897 


0897 
0897 
0897 
089A 
089C 
089F 
08 A 1 
08A4 
08A6 


AD7B09 

8500 

AD7C09 

85D1 

AD7D09 

8504 

AD7E09 


08A9 8505 
08AB 20710CT 
08AE 208D09 
08B1 A909 
08B3 A22B 
08B5 A00A 
08B7 2001 00 
08BA 20EF09 
08BD 208EFD 
08C0 
08C0 
08C0 
08C0 

08C0 AD7B09 
08C3 8500 
08C5 AD7C09 
08C8 8501 
08CA AD7D09 
08CD 8504 
08CF AD7E09 
0802 B5D5 
08D4 20890B 


f 

; 

> 

; 



JSR 

SEROR CHECK 

FOR 

OVERFLOW 

LDA 

#>MSG5 WRITE 

THE 

ANSWER 

LDX 

#<MSG5 



LDY 

#MSG6— MSGS 



JSR 

SR I TE2 



JSR 

SWNUM 



JSR 

CROUT 




SUBTRACT THE NUMBERS ANR WRITE THE 
ANSWER 


LDA 

NUM1 

LOAD NUM1 

STA 

MIL 


LDA . 

NUM1+1 


STA 

M1H 


LDA 

NUM2 

LOAD NUM2 

STA 

M3L 


LOA 

NUM2+1 


STA 

M3H 


JSR 

SSUB2 

SUBTRACT 

JSR 

SEROR 

CHECK FOR 

LDA 

# >MSG6 

WRITE THE 

LDX 

#<MSG6 


LDY 

#MSG7-MSG6 

JSR 

SR I TE2 


JSR 

SWNUM 


JSR 

CROUT 

• 


MULTIPLY THE NUMBERS AND WRITE THE 
ANSWER 


LDA 

NUM1 

LOAD NUM1 

STA 

MIL 


LDA 

NUM 1+1 


STA 

M1H 


LDA 

NUM2 

LOAD NUM2 

STA 

M3L 


LDA 

NUM2+1 


STA 

M3H 


JSR 

SMULT 

MULTIPLY 

JSR 

SEROR 

CHECK FOR 

LDA 

#>MSG1 

WRITE THE 

LDX 

#<MSG1 


LDY 

#MSG2-MSG1 

JSR 

SRITE2 


JSR 

SWNUM 


JSR 

CROUT 



DIVIDE THE NUMBERS AND WRITE THE 

LOAD NUM1 


ANSWER 


LDA 

NUM1 

STA 

MIL 

LDA 

NUM1+1 

STA 

M1H 

LDA 

NUM2 

STA 

M3L 

LDA 

NUM2+1 

STA 

M3H 

JSR 

SDIVD 


LOAD NUM2 

DIVIDE NUMBERS 



0179 

08D7 

208D09 

JSR 

SEROR 

CHECK FOR OVERFLOW 

0180 

08DA 

A909 

LDA 

#>MSG2 

WRITE THE ANSWER 

0181 

08DC 

A235 

LDX 

#<MSG2 

* 

0182 

0SDE 

A00A 

LDY 

#MSG3-MSG2 

0183 

0BE0 20010D 

JSR 

SRITE2 


0184 

0BE3 

20EF09 

JSR 

SWNUM 


0185 

08E6 

20SEFD 

JSR 

CROUT 


0186 

08E9 

9 



9 

0187 

08E9 

9 

TAKE THE 

MODULUS OF THE NUMBERS AND 

0188 

08E9 

• 

> 

WRITE THE ANSWER 


0189 

08E9 

5 




0190 

08E9 

AD7B09 

LOA 

NUM1 

LOAD NUM1 

0191 

08EC 

85D0 

STA 

MIL 


0192 

08EE 

AD7C09 

LDA 

NUM 1+1 


0193 

08F1 

85D1 

STA 

M1H 

' 

0194 

08F3 

AD7D09 

LOA 

NUM2 

LOAD NUM2 

0195 

08F6 

8504 

STA 

M3L 

• 

0196 

08F8 

AD7E09 

LDA 

NUM2+ 1 


0197 

08FB 

85D5 

STA 

M3H 

• 

0198 

08FD 

20AE09 

" JSR 

SM0D2 

MOD NUMBERS 

0199 

0900 

208009 

JSR 

SEROR 

CHECK FOR OVERFLOW 

0200 

0903 

A909 

LDA 

# >MSG7 

WRITE THE ANSWER 

0201 

0905 

A271 

LDX 

#<MSG7 

% 

0202 

0907 

A00A 

^ LDY 

#MSG8— MSG7 

0203 

0909 

200100 

JSR 

SRITE2 

• 

0204 

090C 

20EF09 

JSR 

. SWNUM 


0205 

090F 

208EFD 

JSR 

CROUT 


0206 

0912 

60 

RTS 



0207 

0913 

; 



' 

0208 

0913 

5 

LOOP IF 

EITHER INPUT IS NOT ZERO 

0209 

0913 

f 




0210 

0913 

AD7B09 

LDA 

NUM1 


0211 

0916 

0010 

BNE 

JTOP 


0212 

0918 

AD7C09 

LDA 

NUM1+1 


0213 

09 IB 

D00B 

BNE 

JTOP 


0214 

091D 

AD7D09 

LDA 

NUM2 

s 

0215 

0920 

D006 

BNE 

JTOP 


0216 

0922 

AD7E09 

LOA 

NUM2+1 


0217 

0925 

0001 

BNE 

JTOP 


0218 

0927 

60 

RTS 

4 


0219 

0928 

• 




0220 

0928 

4C0308 JTOP JMP 

TOP 


0221 

092B 

• 

9 




0222 

092B 

9 

LOCAL DATA AREAS 


0223 

092B 

m 




0224 

092B 

C1A0A0 MSG1 DC 

C’A * 

B * ” 

0225 

0935 

C1A0A0 MSG2 OC 

C’A / 

B * 9 

0226 

093F 

C6C9D2 MSG3 DC 

C FIRST 

NUMBER : * 

0227 

094E 

D3C5C3 MSG4 DC 

C 9 SECOND NUMBER: ’ 

0228 

095D 

C1A0A0 MSG5 OC 

C’A + 

B = ’ 

0229 

0967 

C1A0A0 MSG6 DC 

C’A - 

B ■ ’ 

0230 

0971 

C 1 A0CD MSG7 DC 

C’A MOD 

B * ’ 

0231 

097B 

MSGS OS 

0 


0232 

097B 

0000 NUM 1 DC 

V0* 


0233 

097D 

0000 NUM2 DC 

r® 9 

- 

0234 

097F 


END 


- 


Local Symbol Tatol 



JTQP 

MSB4 

MSG8 


0928 MSG1 
094E MSGS 

097B NUM1 


092B 

MSG2 

0935 

MSG3 

093F 

095D 

MSG6 

0967 

MSG7 

0971 

097B 

NUM2 

097D 

TOP 

0803 



**##**********#***********•*#*••*■**■***«■■#•**■#■ 

* 

READ A NUMBER * 

* 

* 

- POINTS TO THE STRING * 

* 

* 

- NUMBER READ * 

* 

* 

* 


* 


* 

* 

SRNUM - 

* 

inputs: 

* 

* 

R0 

* 

OUTPUTS 

* 

* 

MIL 

* 

NOTES: 

* 

1) 

* 

* 

2) 


* 

* 


CHECK THE FIRST 
CHARACTER 


0334 

09BA 


0335 

09BA 


0336 

09BA 


0337 

09BA 


0338 

09BA 


0339 

09BA 


0340 

09BA 


0341 

09BA 


0342 

09BA 


0343 

09BA 


0344 

09BA 


0345 

09BA 


0346 

09BA 


0347 

09BA 


0348 

09BA 


0349 

09BA 

• 

0350 

09BA 


0351 

09BA 


0352 

09BA 


0353 

09BA 


0354 

09BA 

A000 

0355 

09BC 

B100 

0356 

09BE 

C9A4 

0357 

09C0 

F004 

0358 

09C2 

20070C 

0359 

09C5 

60 

0360 

09C6 


0361 

09C6 

E600 

0362 

09CB 

D002 

0363 

09CA 

E601 

0364 

09CC 

20330A 

0365 

09CF 

60 

0366 

09D0 



# 


SRNUM 

START 



LDY 

#0 


LDA 

<R0) ,Y 


CMP 



BEQ 

HEX 


JSR 

SREDI 


RTS 


HEX 

INC 

R0 


BNE 

HX1 


INC 

R1 

HX1 

JSR 

SHXIN 


RTS 



END 



READ A DECIMAL 
NUMBER 

READ A HEX NUMBER 


Local Symbol Table 

HEX 09C6 HX1 09CC 

NOTE: SADD2, SEROR, SGETC, SMOD2, SNOUT, SSUB2, SWNUM 
and SHXNM as in other listings. SXHID, SHXIN and SHXNM were 
placed in a separate library called SUBS. HEX which was appended 
to the program for 1 1 .2 to avoid the problem of a text buffer overflow. 



0580 0A66 


ORCA/EZ 1.0 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 


0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 

0800 200C08 
0803 206AFD 
0806 200D0Q 
0809 B0F8 
080B 60 
080C 


PRINTER ON 


**********#**************hh**********#**.* 


# 

* 

* 

* 


TWO BYTE INTEGER CALCULATOR 
STEP 12 THE SKELETON 


* 

* 

* 

* 


* NOTES 2 * 

* 1) USES DUMMY ROUTINES SIN IT * 

* AND SMATH * 

* * 
*********#************hhhi-*********#***#* 


* 

MATH 

START 



R0 

GEQU 

$0 

• 

GENERAL PURPOSE 

R1 

GEQU 

$1 

REGISTERS 

R2 

GEQU 

*2 


R3 

GEQU 

S3 


R4 

GEQU 

$4 


R5 

GEQU 

$5 


R6 

GEQU 

*6 


R7 

GEQU 

*7 


R8 

GEQU 

*8 


R9 

GEQU 

$9 


R10 

GEQU 

♦A 


Rll 

GEQU 

SB 


R12 

GEQU 

SC 


R13 

GEQU 

SD 


R14 

GEQU 

SE 


R15 

GEQU 

SF 


MIL 

GEQU 

SD0 

TWO BYTE INTEGER 

M1H 

GEQU 

SD1 

MATH REGISTERS 

M2L 

GEQU 

SD2 


M2H 

GEQU 

SD3 


M3L 

GEQU 

SD4 


M3H 

GEQU 

SD5 

• 

SIGN 

GEQU 

SD6 


CHRAD 

« 

% 

GEQU 

SFE 

CHARACTER ADDRESS 
(FOR SRITE) 

LINE 

GEQU 

S200 

INPUT BUFFER 

HOME 

GEQU 

SFC58 

CLEAR THE SCREEN 

GETLN 

EQU 

SFD6A 

READ A LINE 

CROUT 

GEQU 

SFD8E 

DO A RETURN 


JSR 

SINIT 

• INITIALIZATION 

LB1 

JSR 

GETLN 

GET A LINE 


JSR 

SMATH 

DO THE MATH 


BCS 

RTS 

END 

LB1 

LOOP 


Local Symbol Table 

GETLN FD6A LB1 0803 



0052 

080C 


. 

0053 

080C 



0054 

080C 

**************************************** 

0055 

080C 

* 

* 

0056 

080C 

* SINIT - PROGRAM INITIALIZATION * 

0057 

080C 

* 

* 

0058 

080C 

**************************************** 

0059 

080C 

* 

w 

0060 

080C 

SINIT 

START 

0061 

080C 



0062 

080C 60 


RTS 

0063 

% 

080D 


END 



0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 


080D 

080D 

0800 

0800 

080D 

0800 

0800 

0800 

080D 

080D 


0800 1 


080E 60 
080F 


**************************************** 
* * 

* SMATH - DO A MATH OPERATION * 

* * 

**************************************** 

* 

SMATH START 


CLC 

RTS 

END 


Global Symbol Table 


CHRAD 

00FE 

M1H 

9 

00D1 

M3H 

0005 

R1 

0001 

R13 

0000 

R3 

0003 

R7 

0007 

SINIT 

080C 


CROUT 

FOSE 

MIL 

00D0 

M3L 

00D4 

R10 

000A 

R14 

000E 

R4 

0004 

R8 

0008 

SMATH 

0800 


HOME 

FC58 

M2H 

0003 

MATH 

0800 

Rll 

000B 

R15 

000F 

R5 

0005 

R9 

0009 


LINE 

0200 

V 

M2L 

0002 

R0 

0000 

R12 

000C 

R2 

0002 

R6 

0006 

SIGN 

0006 



0001 

* 

0800 



PRINTER QNQRCA/EZ 1.0 


0001 

0800 



PRINTER ON 



0002 

0800 



KEEP 

STEPS23. 

OBJ 


0003 

0800 

- 

**************************************** 

s 

0004 

0800 


* 




* 

0005 

0800 


* TWO 

BYTE 

INTEGER 

CALCULATOR 

* 

0006 

0800 


* 



• 

* 

0007 

0800 


* STEPS 2 AND 3: PROGRAM 

* 

0008 

0800 


* INITIALIZATION 


* 

0009 

0800 


* 




* 

0010 

0800 


* notes: 



* 

0011 

0800 


* 

1) USES SINIT AND DUMMY SMATH 

* 

0012 

0800 


* 

ROUT I NE 


* 

0013 

0800 


* 




j 

* 

0014 

0800 


**************************************** 

0015 

0800 


* 


% 



0016 

6 

0800 


MATH 

START 



0017 

0800 


R0 

GEQU 

*0 

GENERAL PURPOSE 


0018 

0800 


R1 

GEQU 

*1 

REG I STERS 


0019 

0800 


R2 

GEQU 

$2 



0020 

0800 


R3 

GEQU 

S3 



0021 

0800 

• 

R4 

GEQU 

S4 



0022 

0800 


R5 

GEQU 

$5 



0023. 

0800 


R6 

GEQU 

S6 



0024 

0800 


R7 

GEQU 

S7 



0025 

0800 


R8 

GEQU 

S8 



0026 

0800 


R9 

GEQU 

S9 



0027 

0800 


R10 

GEQU 

SA 



0028 

0800 


Rll 

GEQU 

SB 



0029 

0800 


R12 

GEQU 

SC 



0030 

0800 


R13 

GEQU 

SD 



0031 

0800 


R14 

GEQU 

SE 



0032 

0800 


R15 

GEQU 

SF 



0033 

0800 


MIL 

GEQU 

SD0 

TWO BYTE INTEGER 


0034 

0800 


M1H 

GEQU 

SD1 

MATH REGISTERS 


0035 

0800 


M2L 

GEQU 

SD2 



0036 

0800 


M2H 

GEQU 

SD3 

• 


0037 

0800 


M3L 

GEQU 

SD4 



0038 

0800 


M3H 

GEQU 

SD5 



0039 

0800 


SIGN 

GEQU 

SD6 



0040 

0800 


CHRAD 

GEQU 

SFE 

CHARACTER ADDRESS 


0041 

0800 


i 

• 



(FOR SRITE) 


0042 

0800 


LINE 

GEQU 

S200 

INPUT BUFFER 


0043 

0800 


VARS 

GEQU 

S300 

VARIABLE BUFFER 


0044 

0800 


HOME 

GEQU 

% 

SFC58 

CLEAR THE SCREEN 


0045 

0800 


GETLN 

EQU 

SFD6A 

READ A LINE 


0046 

0800 


GROUT 

GEQU 

SFD8E 

DO A RETURN 


0047 

0800 







0048 

0800 

200C08 


JSR 

SINIT 

INITIALIZATION 


0049 

0803 

206AFD 

LB1 

JSR 

GETLN 

GET A LINE 


0050 

0806 

204A08 


JSR 

SMATH 

DO THE MATH 


0051 

0809 

B0FB 


BCS 

LB1 

LOOP 


0052 

080B 

60 

« - 

RTS 


- 


0053 

080C 



END 





Local Symbol Table 


GETLN 


FD6A 


L51 


0803 



0054 

080C 







0055 

080C 



- 




0056 

080C 


**************************************** 

0057 

080C 


* 




* 

0058 

080C 

• 

* SINIT - PROGRAM INITIALIZATION 

* 

0059 

080C 


* 




* 

0060 

080C 

- 

* notes: 



* 

0061 

■ 0S0C 


* 

1) USES SRITE 


* 

0062 

080C 


* 



- 

* 

0063 

080C 


**************************************** 

0064 

080C 


* 





0065 

080C 


SINIT 

START 




0066 

080C 


PROMPT 

EQU 

S33 

PROMPT CHAR 


0067 

080C 





• 


0068 

080C 

A233 


LDX 

#2*26-1 

INIT VARS TO 0 


0069 

0B0E 

A900 


LDA 

#0 

' 


0070 

0810 

9D0003 

LB1 

STA 

VARS , X 



0071 

0813 

CA 


DEX 




0072 

0814 

10FA 


BPL 

LB1 



0073 

0816 

2058FC 


JSR 

HOME 

CLEAR THE SCREEN 


0074 

0819 

A908 


LDA 

#>MSG1 

WRITE THE START 


0075 

081B 

A22D 


LDX 

#<MSG1 

MESSAGE 


0076 

081D 

A01D 


LDY 

#MSG2— MSG1 


0077 

081F 

20E10A 


JSR 

SRITE 



0078 

0822 

208EFD 


JSR 

CROUT 



0079 

0825 

208EFD 


JSR 

CROUT 


- 

0080 

0828 

A9C0 


LDA 


SET THE PROMPT 


0081 

082A 

8533 


STA 

PROMPT 

% 


0082 

082C 

60 


RTS 

• 



0083 

082D 







0084 

082D 

A0A0A0 

MSG1 

DC 

C” 

V 


0085 

0838 

C9CED4 


DC 

C* INTEGER CALCULATOR' 


0086 

084A 


MSG2 

DS 

0 



0087 

084A 



END 





Local Symbol Table 


LB1 


0810 MSG1 


082D MSG2 


084A PROMPT 


0033 



0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 


084A 


084A 

084A 

084A 

084A 


084A 
084A 
084A 
08 4 A 
084A 
084A 


18 


084B 60 
084C 


**************************************** 
* * 

* SMATH - DO A MATH OPERATION * 

* * 
**************************************** 
* 

SMATH START 

CLC 

RTS 

END 



1 

ORCA/EZ 1.0 


0001 

• 

0800 


PRINTER ON 



0002 

0800 


KEEP 

STEP4. OBJ 


0003 

0800 

**************************************** 

0004 

0800 

* 



% 

* 

0005 

0800 

* TWO 

BYTE 

INTEGER CALCULATOR 

ft 

* 

0006 

0800 

* 



# % 

* 

0007 

0800 

* STEP 4: EXPANDING 

THE MATH ROUTINE 

* 

0008 

0800 

* 




* 

0009 

0800 

* notes: 



* 

0010 

0800 

* 

1) USES SINIT 

AND SMATH 

* 

* 

0011 

0800 

* 

0 



* 

0012 

0800 

**************************************** 

0013 

0800 

* 


• 

' 


0014 

0800 

MATH 

START 



0015 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 


0016 

0800 

R1 

GEQU 

$1 

REG I STERS 


0017 

0800 

R2 

GEQU 

$2 



0018 

0800 

R3 

GEQU 

*3 



0019 

0800 

R4 

GEQU 

$4 


• 

0020 

0800 

R5 

GEQU 

$5 



0021 

0800 

R6 

GEQU 

$6 

0 


0022 

0800 

R7 

GEQU 

$7 



0023 

0800 

RS 

GEQU 

$8 



0024 

0800 

CCPOS 

GEQU 

$9 

CHARACTER POSITION 

0025 

0800 

PUTBUF 

GEQU 

$A 

PUT BACK BUFFER 


0026 

0800 

MIL 

GEQU 

$D0 

MATH REGISTERS 


0027 

0800 

M1H 

GEQU 

$D1 



0020 

0800 

M2L 

GEQU 

$D2 



0029 

0800 

M2H 

GEQU 

$D3 



0030 

0800 

M3L 

GEQU 

$D4 



0031 

0800 

M3H 

GEQU 

$D5 



0032 

0800 

SIGN 

GEQU 

$D6 



0033 

0800 

CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 

% 

0034 

0800 

i 

• 



(FOR SRITE) 


0035 

0800 

LINE 

GEQU 

$200 

INPUT BUFFER 


0036 

0800 

VARS 

GEQU 

$300 

VARIABLE BUFFER 


0037 

0800 

PRAX 

GEQU 

$F941 

WRITE A-X AS HEX 


0038 

0800 

PRBL 

GEQU 

$F94A 

PRINT BLANKS 


0039 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 

ft 

0040 

0800 

GETLN 

GEQU 

$FD6A 

READ A LINE 


0041 

0800 

CROUT 

GEQU 

$FD8E 

DO A RETURN 


0042 

0800 

GOUT 

GEQU 

$FDED 

OUTPUT A CHARACTER 

0043 

0800 




ft 

s 


0044 

0800 203F0S 


JSR 

SINIT 

INITIALIZATION 

• 

0045 

0803 206AFD 

LB1 

JSR 

GETLN 

GET A LINE 


0046 

0806 207D08 


JSR 

SMATH 

DO THE MATH 


0047 

0809 B0F8 


BCS 

LB1 

LOOP 


0048 

080B 60 


RTS 


• 

' 

0049 

080C 


END 


• “ 



Local Symbol Table 
LB1 0803 



0050 

080C 

. 


• • • • 

• • * 

• m W 

m m m * • 

• % m % m • 


005 1 

080C 


■ 

. 


0052 

080C 

% 

**************************************** 

0053 

080C 


* 

* 

* 

0054 

080C 

• 

* 

SAL ID - IDENTIFY ALPHABETIC CHAR 

* 

0055 

080C 


* 

. 

* 

0056 

080C 


* 

inputs: 

* 

0057 

080C 


* 

A - CHARACTER TO CHECK 

* 

0058 

080C 

. 

* 

• « . 

• » 

* 

0059 

080C 


* 

outputs: 

* 

0060 

080C 


* 

C - SET IF ALPHABETIC 

* 

0061 

080C 

• 

* 

• 

* 

0062 

080C 

• • 

**************************************** 

0063 

080C 

• 

* 

# 

• 

0064 

080C 

• 

SAL ID START 


0065 

080C 

• 




0066 

080C 

C9C1 

• 

CMP A* 


0067 

* 9 

080E 

9007 


BLT RTS 


0068 

0810 

C9DA 


CMP #'Z’ 

4 

0069 

0812 

B002 


' BGE NOT 


0070 

0814 

38 


SEC 


0071 

0815 

60 


RTS 

. 

0072 

0816 

18 

NOT CLC 

' 

0073 

0817 

60 

RTS RTS 


0074 

0818 

• 


END 



Local Symbol Table 

NOT 0816 RTS 0817 



0075 

0818 

% 




0076 

0818 



♦ 

m * “ 

0077 

0818 


*****#****#****#*******#***###.#+*+*#**## 


007S 

0818 

4 

* 

* 


0079 

0818 


* 

SEROR - SHOW WHERE AN ERROR IS * 


0080 

0818 


* 

* 


0081 

0818 


*■ 

INPUTS: * 


0082 

0818 


* 

CCPOS - CURRENT CHARACTER * 


0083 

0818 


* 

SEARCH POSITION * 

% 

0084 

0818 


* 

* 


0085 

0818 


**************************************** 


0086 

0818 


* 

• 

% 

0087 

0818 


SEROR START 


0088 

0818 



• 

4 

0089 

0818 

A609 


LDX CCPOS 


0090 

081A 

204AF9 


JSR PRBL 


0091 

08 ID 

A9DE 


LDA 

— - . - 

0092 

08 IF 

20EDFD 


JSR COUT 


0093 

0822 

A9A0 


LDA #’ ' ' 

• 

0094 

0824 

20EDFD 


JSR COUT 


0095 

0827 

60 


RTS 


0096 

0828 



END 




5 



0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 


0828 

0B28 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0828 

0829 


60 


***************************************** 
* * 
* SEXPR - EVALUATE THE EXPRESSION * 


* INPUTS: 

* LINE - CONTAINS EXPRESSION 

* 

* OUTPUTS: 

* MIL - VALUE 

* 


* 

* 

* 

* 

* 

* 


**************************************** 


* 

SEXPR START 


RTS 

END 



0115 

0829 




• * 


0116 

0029 



■ • 



0117 

0829 


**************************************** 

0118 

0829 

s 

* 

w 


- 

# 

0119 

0829 

- 

* 

SGETC - READ A NON-BLANK CHARACTER 

* 

0120 

0829 


* 


m % 

* 

0121 

0829 


* 

inputs: 

• " 

* 

0122 

0829 

• 

* 

LINE - INPUT 

BUFFER 

* 

0123 

0829 


* 

CCPOS - POSITION IN BUFFER 

* 

0124 

0829 


* 

PUTBUF - PUTBACK BUFFER 

* 

0125 

0829 

% 

* 


’ 

% 

# 

0126 

0829 


* 

OUTPUTS: 


* 

0127 

0829 


* 

A - CHARACTER 

READ 

* 

0128 

0829 

. 

* 


* 

* 

0129 

0829 


****************#*HI.***##**************** 

0130 

0829 


* 


. 


0131 

0829 


SGETC START 

- 


0132 

% 

0829 

- 





0133 

0829 

A50A 


LDA PUTBUF 

CHECK THE BUFFER 

• 

0134 

082B 

D00D 


BNE LB2 

• . ' • 


0135 

082D 






0136 

0820 

A409 


LDY CCPOS 

READ FROM LINE 

• 

0137 

082F 

B90002 

LB1 

LDA LINE, Y 



0138 

0832 

C8 


I NY 


• 

0139 

0833 

C9A0 


CMP #’ ' 



0140 

0835 

F0F8 


BEQ LB1 

• 


0141 

0837 

8409 


STY CCPOS 

-• • 


0142 

0839 

60 


RTS 



0143 

083A 



• 



0144 

083A 

A000 

LB2 

LDY #0 

READ FROM BUFFER 


0145 

083C 

840A 


STY PUTBUF 

• • 

• • 

0146 

083E 

60 


RTS 

. 


0147 

083F 



END 

* 


Local 

Symbol Table 





LB1 


0B2F LB2 

083A 





0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0180 

0181 


083F 

083F 

083F 

083F 

083F 

083F 

083F 

0B3F 

083F 

083F 

083F 


083F 

083F 


083F 


083F A233 
0841 A900 
0843 9D0003 

0846 CA 

0847 10FA 
0849 2058FC 
084C A908 
084E A260 


0850 


0858 

085B 

085D 


A01D 

20BA0B 

208EFD 

208EFD 

A9C0 



0860 A0A0A0 
086B C9CED4 
087D 
087D 


■a"*************************************** 
* * 

* SINIT - PROGRAM INITIALIZATION * 

* * 

* notes: * 

* 1) USES SRITE * 

* * 
********************************************** 


* 


SINIT 

START 


- 

PROMPT 

EQU 

$33 

PROMPT CHAR 


LDX 

#2*26-1 

INIT VARS TO 0 


LDA 

#0 


LB1 

STA 

VARS, X 

_ v 


DEX 




BPL 

LB1 



JSR 

HOME 

CLEAR THE SCREEN 


LDA 

#>MSG1 

WRITE THE START 


LDX 

#<MSG1 

MESSAGE 


LDY 

#MSG2-MSG1 


JSR 

SRITE 



JSR 

CROUT 



JSR 

CROUT 



LDA 

#’0’ 

SET THE PROMPT 


STA 

PROMPT 


• 

RTS 

• 

• 

MSG1 

DC 

C’ 



DC 

C’ INTEBER CALCULATOR’ 

MSG2 

DS 

0 

• 


END 


' 


Local Symbol Table 


LB1 


0843 


MSG1 


0860 MSG2 087D PROMPT 


0033 



0182 

0183 

0184 

0185 

0186 
01B7 
0188 
0189 


0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 


0224 


0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 


0Q7D 
087D 
087D 
087D 
087D 
0B7D 
087D 
08 7D 
087D 
087D 
087D 
087D 
087D 
087 D 
087D 
087D 
0870 

0870 A900 
0S7F 8509 
0881 850 A 


0883 
0886 
0886 
0886 
0886 
0886 
0888 
088A 
08 8 A 
088D 
088F 
0892 
0894 
0897 
0899 
089C 
089F 
08A2 
08A4 
08A7 
08A9 


202908 


C9BF 

0033 

202808 

A5D0 

8DFB08 

A5D1 

8DFC08 

A206 

204AF9 

20A009 

201109 

A206 

204AF9 

A9A4 

20EDFO 


08 AC ADFC08 
08AF AEFB08 
08B2 204 1F9 
08B5 208EFD 
08B8 208EFO 
08BB 38 
08BC 60 
08BO 
08BD 
08BO 

08BO 200C08 
08C0 9021 
08C2 

08C2 8OFA08 


08C5 202908 
08C8 C9B0 
08CA 0010 
08CC 202808 
08CF 38 


*************************** #### *** ###### 


* 

* 

* 

* 

•* 

* 

* 

* 


SMATH - DO A MATH OPERATION 


NOTES: 

1 ) 


USES SALID, SERQR, SEXPR, 

, SIWRT, SNOUT, AND 




* 

* 

* 

* 

* 

* 

# 

* 


* 

SMATH START 


INITIALIZATION 


LDA 

STA 

STA 

#0 

CCPOS 

PUTBUF 

INITIALIZE SGETC 

JSR 

SGETC 

GET THE OPERATION 


EVALUATE AN EXPRESSION AND PRINT THE 
RESULT. 


LB1 


CMP 

#*? p 

BRANCH IF NOT AN 

BNE 

LB1 

EXPRESSION 

JSR 

SEXPR 

EVALUATE EXPRESSION 

LDA 

MIL 

SAVE THE NUMBER 

STA 

NUM1 

• 

LDA 

M1H 

• 

STA 

NUM1+1 

• • 

• 

LDX 

#6 

PRINT SOME BLANKS 

JSR 

• 

PRBL 

WRITE THE DECIMAL 

JSR 

SIWRT 

RESULT 

JSR 

SNOUT 


LDX 

#6 

PRINT SOME BLANKS 

JSR 

PRBL 


LDA 


PRINT THE HEX 

JSR 

COUT 

RESULT 

LDA 

NUMl+l 

• 

LDX 

NUM1 


JSR 

PRAX 


JSR 

CROUT 


JSR 

CROUT 

• 

SEC 



RTS 

* • 

• 

• 

SET A VARIABLE TO 

A VALUE 

JSR 

SAL ID 

BRANCH IF NOT 

BCC 

LB2 

ALPHABETIC 

STA 

TEMP 

SAVE THE INDEX 

JSR 

SGETC 

• 

CHECK FOR AN 

CMP 


* 

BNE 

ERR 

% 

* 

* • 

* 

JSR 

SEXPR 

EVALUATE EXPRESSION 

SEC 


COMPUTE INDEX 




0242 

* 

08D0 

* 

ADFA08 


LDA 

■w 

• 

* 

TEMP 

' 

0243 

08D3 

E9C1 


SBC 

#’A’ 


0244 

08D5 

0A 


ASL 

A 


0245 

08D6 

AA 

• 

TAX 

s 


0246 

08D7 

A5D0 


LDA 

MIL SAVE THE VALUE 


0247 

08D9 

9D0003 


STA 

VARS, X 


0248 

08DC 

A5D1 


LDA 

M1H 

• 

0249 

08OE 

9D0103 


STA 

VARS+1 , X 

- 

0250 

08E1 

38 


SEC 

- 


0251 

08E2 

60 


RTS 



0252 

08E3 


5 




0253 

08E3 


3 QUIT IF 

THE LINE STARTS WITH ? 


0254 

08E3 


m 

9 


% 


0255 

08E3 

C9C0 

LB2 

CMP 



0256 

08E5 

0002 


BNE 

ERR 


0257 

08E7 

18 


CLC 



0258 

08E8 

60 


RTS 



0259 

08E9 


5 


• 


0260 

08E9 


3 ERROR ROUTINE 


0261 

08E9 


m 

» 


. 4 

— — 

0262 

08E9 

20 1 808 

ERR 

JSR 

SEROR SHOW WHERE ERROR IS 


. 0263 

08EC 

A908 


LDA 

#>MS61 


0264 

08EE 

A2FD 


LDX 

#<MSG1 


0265 

08F0 

A014 


LDY 

#MSG2— MSGl 


0266 

08F2 

20BA0B 


JSR 

SRITE 


0267 

08F5 

208EFD 


JSR 

GROUT 


0268 

08F8 

38 


SEC 

* 


0269 

08F9 

60 


RTS 



0270 

08FA 


5 


• 


0271 

08FA 


5 LOCAL DATA AREAS 


0272 

08FA 


• 

9 


• 


0273 

08FA 

00 

TEMP 

DS 

1 TEMP STORAGE FOR 


0274 

08FB 


i 

♦ 


INDEX VARIABLE 


0275 

08FB 

0000 

NUM1 

DS 

2 TEMP STORAGE FOR 


0276 

08FD 


i 

• 


NUMBER 


0277 

08FD 

CECFA0 

MSGl 

DC 

C’ NO ACTION REQUESTED . * 


0278 

0911 


MSG2 

DS 

0 


0279 

0911 



END 



Local Symbol Table 

ERR 08E9 LB1 08BD LB2 08E3 MSG1 08FD 

MSG2 0911 NUM1 08FB TEMP 08FA 



0280 

0911 

- 

• 


• 

. 

• 

0281 

0911 







0282 

0911 







0283 

0911 


*#*****#**********************.*■*■*•**#■*#*•* 

0284 

0911 


* 




* 

0285 

0911 


* SNOUT - 

NUMBER OUTPUT TO CRT 

* 

0286 

0911 


* 


' - 


* 

0287 

0911 


* INPUTS: 


• 

* 

0288 

0911 


* 

Y-A 

- ADDRESS 

OF STRING TO 

% 

* 

0289 

0911 


* 


WRITE 

* 

* 

0290 

0911 


* 



• 

* 

0291 

0911 


* NOTES: 


• 

% 

* 

0292 

0911 

• 

* 

1) THE STRING 

MUST END WITH A 

* 

0293 

0911 


* 


$00 

* 

* 

0294 

0911 

• 

* 



• 

* 

0295 

0911 


****#********************.*.*•**#•* *••*■*■****•*•* 

0296 

0911 


* 





0297 

0911 

• 

SNOUT 

START 

• 


0298 

0911 


COUT 

EQU 

*FDED 

CHARACTER OUTPUT 


0299 

0911 







0300 

0911 

8500 


STA 

R0 

SAVE THE ADDRESS 


0301 

0913 

8401 


STY 

R1 

• 


0302 

0915 

A000 


LDY 

#0 

OUTPUT THE 


0303 

0917 

B100 

• 

NT1 

LDA 

(R0> , Y 

CHARACTERS 


0304 

0919 

F006 


BEQ 

NT2 



0305 

09 IB 

20EDFD 


JSR 

COUT 



0306 

091E 

CS 


INY 




0307 

091F 

D0F6 


BNE 

NT1 

• 


0308 

0921 

60 

NT2 

RTS 


• 


0309 

0922 

• 


END 





Local Symbol Table 

• • 

COUT FDED NT1 0917 NT2 0921 



0510 

0922 



9 

0311 

0922 


9 * 

% • 


0312 

0922 


• % 


0313 

0922 

**************************************** 

0314 

0922 

* 

6 

* 

0315 

0922 

s 

* 

SPUTB - PUT BACK A CHARACTER 

• • 

* 

0316 

0922 

* 


* 

0317 

0922 

* 

inputs: 

* 

0318 

0922 

* 

A - CHARACTER TO PUT BACK 

* 

0319 

0922 

# 


* 

0320 

0922 

* 

OUTPUTS: 

* 

0321 

0922 

* 

PUTBUF - A 

* 

0322 

0922 

* 


* 

0323 

0922 

**************************************** 

0324 

0922 

* 



0325 

0922 

SPUTB START 


0326 

0922 




0327 

0922 850A 


STA PUTBUF 


0328 

0924 60 


RTS 


0329 

0925 


END 




0336 

0925 

* 

- 


*QRCA/EZ 1.0 

0001 

0800 


PRINTER ON 


0002 

0800 


KEEP 

STEPS. OBJ 

0003 

0800 

**************************************** 

0004 

0800 

* 



* 

0005 

0800 

* TWO 

BYTE 

INTEGER 

CALCULATOR * 

0006 

0800 

* 



* 

0007 

0800 

* STEP 5! ADD EXPRESSION EVALUATION * 

0008 

0800 

* 



* 

000? 

0800 

* NOTES: 


* 

0010 

0800 

* 

1) USES SINIT 

AND SMATH * 

0011 

0800 

* 



* 

0012 

0800 

**************************************** 

0013 

0B00 

* 




0014 

0800 

MATH 

START 


. 

0015 

0800 

R0 

GEQU 

$0 

GENERAL PURPOSE 

0016 

0800 

R1 

GEQU 

$1 

REGISTERS 

0017 

0800 

R2 

GEQU 

$2 

• 

0018 

0800 

R3 

GEQU 

$3 

• 

0019 

0800 

R4 

GEQU 

$4 


0020 

0800 

R5 

GEQU 

*5 

• 

0021 

0800 

R6 

GEQU 

*6 


0022 

0800 

R7 

GEQU 

$7 


0023 

0800 

R8 

GEQU 

*8 


0024 

0800 

CCPOS 

GEQU 

$ 9 

CHARACTER POSITION 

0025 

0800 

PUTBUF 

GEQU 

$A 

PUT BACK BUFFER 

0026 

0800 

MIL 

GEQU 

$D0 

MATH REGISTERS 

0027 

0800 

M1H 

GEQU 

$D1 


0028 . 

0800 

M2L 

GEQU 

$D2 

• 

002? 

0800 

M2H 

GEQU 

*D3 


0030 

0800 

M3L 

GEQU 

$D4 

• 

0031 

0800 

M3H 

GEQU 

*D5 


0032 

0800 

SIGN 

GEQU 

$06 

• 

0033 

0800 

CHRAD 

GEQU 

$FE 

CHARACTER ADDRESS 

0034 

0800 

i 

4 



(FOR SRITE) 

0035 

0800 

LINE 

GEQU 

$200 

INPUT BUFFER 

0036 

0800 

VARS 

GEQU 

$300 

VARIABLE BUFFER 

0037 

0800 

PRAX 

GEQU 

$F941 

WRITE A-X AS HEX 

0038 

0800 

PRBL 

GEQU 

*F94A 

PRINT BLANKS 

0039 

0800 

HOME 

GEQU 

$FC58 

CLEAR THE SCREEN 

0040 

0800 

GETLN 

GEQU 

$FD6A 

READ A LINE 

0041 

0800 

CRGUT 

GEQU 

$FD8E 

DO A RETURN 

0042 

0800 

GOUT 

GEQU 

$fded 

OUTPUT A CHARACTER 

0043 

0800 





0044 

0800 20EB08 


JSR 

SINIT 

INITIALIZATION 

0045 

0803 206AFD 

LB1 

JSR 

GETLN 

GET A LINE 

0046 

0806 202909 


JSR 

SMATH 

DO THE MATH 

0047 

0809 B0F8 


BCS 

LB1 

LOOP 

0048 

080B 60 


RTS 


• • ^ 

0049 

080C 


END 


1 


Local 

v 

Symbol Table 

' 

LBl 

0803 

• ^ • 


* 


m . 


0050 

080C 




^ * 

* 


0051 

080C 




m * 


0052 

080C 


**************************************** 

0053 

080C 


* 


* 

* 

0054 

080C 


# 

SADD2 - TWO BYTE ADD 

# 

0055 

080C 


■* 



* 

0056 

080C 

• 

* 

INPUTS: 

% 

* 

0057 

080C 

- 

* 

MIL - 

FIRST ARGUMENT 

# 

0058 

080C 


* 

M3L - 

SECOND ARGUMENT 

* 

005? 

080C 


* 



% 

# 

0060 

080C 

• 

* 

outputs: 

m m 

* 


©sac 

. 


- 

ResuuT 

■* 

0062 

080C 

. ' 

* 


* 

* 

0063 

080C 


**************************************** 

0064 

080C 

6 

* 




0065 

080C 


SADD2 START 



0066 

080C 






0067 

080C 

18 

• 

CLC 



0068 

080D 

A5D0 


LDA 

MIL 


0069 

080F 

65D4 


ADC 

M3L 


0070 

0811 

85D0 


STA 

MIL 


0071 

0813 

A5D1 


LDA 

M1H 


0072 

0815 

65D5 


ADC 



0073 

0817 

85D1 


STA 

M1H 


0074 

0819 

60 


RTS 



0075 

081 A 



END 





0076 

0077 

081 A 

081A 

» 

9 

. « ' . 
m • m • 

* 

m m " • S m 

9 

0078 

081A 


***************************************** 

0079 

081A 

. 

• m " S m m 

* 

# 

0080 

081A 

• 

* SAL ID - IDENTIFY ALPHABETIC CHAR 

* 

0081 

081A 


m * 9 m m 

* 

m m * 

* 

0082 

081A 

% • • 

* inputs: 

* 

0083 

081A 


* A - CHARACTER TO CHECK 

# 

0084 

081 A 


* . 

* 

0085 

081 A 


* outputs: 

* 

0086 

081 A 


* C - SET IF ALPHABETIC 

* 

0087 

081 A 


* 

* 

0088 

0089 

0090 

0091 

081 A 
081 A 
081A 
081A 

« 

**#**#****###**##****##***************** 

• • 

» % 

* 

SALID START 

• • • • • • 

0092 

081 A 

C9C1 

CMP a’A’ 

• 

0093 

081C 

9007 

BLT RTS 

V 

0094 

081E 

C9DA 

cmp rz* 

• 

0095 

0820 

B002 

BGE NOT 

* 

0096 

0822 

38 

SEC 

* 

0097 

0823 

60 

RTS 


0098 

0824 

18 

NOT CLC 


0099 

0100 

0825 

0826 

60 

RTS RTS 

END 



Local Symbol Table 

NOT 0824 RTS 0825 



0101 

0826 



• » 

- 


0102 

0826 

• 


■ 

- 

- 

0103 

0826 


tt***************************^*********** 

0104 

0826 


* 



* 

0105 

0826 


* 

SEROR - SHOW WHERE AN ERROR IS 

* 

0106 

0826 


* 



* 

0107 

0826 

4 

* 

inputs: 


* 

0108 

0826 


* 

CCPOS 

- CURRENT CHARACTER 

* 

0109 

0826 


* 


SEARCH POSITION 

* 

0110 

0826 


* 



* 

0111 

0826 


**************************************** 

0112 

0826 

* 

* 


• 

V 

% 


0113 

0826 

* 

SERQR START 

• m 

• • 

0114 

0826 




- 

% 

0115 

0826 

A609 


LDX 

CCPOS 

• 

0116 

0828 

204AF9 


JSR 

PRBL 


0117 

082B 

A9DE 


LDA 

***’ 


0118 

082D 

20EDFD 


JSR 

COUT 

4 

0119 

0830 

A9A0 


LDA 

#•■■ ’ 


0120 

0832 

20EDFD 


JSR 

COUT 


0121 

0835 

60 


RTS 


4 

0122 

0836 

• 


END 

• _ 9 • 




!» 


t* 

* 

5 

A 

: 

■ 

li 

l 

« 

t 

i 

( 

i 

i 


\ 




0123 

0836 

ft 

• * 

ft 

- 

• 

• 4 

4 

• * * 

* 

# * 

* 

% “ 

4 

ft 

• m 

% " 

* ft 

4 

ft 

0124 

0836 

- 

' 

• 



4 

ft 

0125 

0836 

*******************-***-** **************** 


0126 

0836 

« 

» 

- 

* 

* 

m ft 

0127 

0836 

* 

SEXPR - 

EVALUATE 

THE EXPRESSION 

* 


0128 

0836 

* 

P 


• 

* 

ft 

0129 

0836 

* 

• I NPUTS S 

- 


ft 

* 

" — / * 

0130 

0836 

4 

* 

LINE - CONTAINS EXPRESSION 

* 


0131 

0836 

* 



* 

* 

ft 

0132 

0836 

* 

outputs: 


• v # 

• • 

* 



0836 

* 

MIL 

- VALUE 

* • » 

* 

• 

0134 

0836 

* 



• _ % 

* , 

% 

ft 

* 

A 

0135 

0836 

* 

notes: 


- 

* 

ft 

0136 

0836 

0 

* 

1 ) USES SADD2 

, SDIVD, SEROR, 

* 


0137 

0836 

* 

r 

SGETC, SGETN, SMULT, SRITE 

* 

• 

0138 

0836 

* 

t 



* 


0139 

0836 

***##***###***#****#*******##*********** 

ft 

0140 

0836 

* 

P 


• ft _ 


ft 

0141 

0836 

SEXPR START 

4 


• 

0142 

0836 

RETURN EQU 

$8D 

END-OF-LINE CHAR 



0143 

0836 



• 

• 


4 

ft 

0144 

0836 

20260A 

- JSR 

SGETN 

GET A NUMBER 


™ ^ • . 

0145 

0839 

9076 

BCC 

RTS 



ft 

0146 

083B 

A5D0 LB1 LDA 

MIL 

• 

• % 

' 

ft 

0147 

083D 

8DB408 

STA 

NUM1 

* 



0148 

0840 

A5D1 

LDA 

M1H 




0149 

0842 

8OB508 

STA 

■ NUM 1 + 1 




0150 

0845 

20D508 

JSR 

SGETC 



• . ' 

0151 

0848 

C98D 

CMP 

ttRETURN 

• ft 



0152 

084A 

F065 

BEQ 

RTS 




0153 

084C 

8DB30B 

STA 

OPER 



■ 

0154 

084F 

A509 

LDA 

CCPOS 



* 

0155 

0851 

8DB208 

STA 

OPERPOS 

« 

* 

ft 

0156 

0854 

20260A 

JSR 

SGETN 

GET THE SECOND 



0157 

0857 




NUMBER 


. ' 

0158 

0857 

A5D0 

LDA 

MIL 

MOVE THE NUMBERS 

' 



0159 

0859 

85D4 

STA 

M3L 

TO THE OPERATION 


. / . 

0160 

085B 

A5D1 

LDA 

M1H 

LOCATIONS 


ft 

* 

0161 

085D 

8505 

STA 

M3H 



* 

0162 

085F 

ADB408 

LDA 

NUM1 

• . . 


• 

0163 

0862 

8500 

STA 

MIL 

• 



0164 

0864 

AOB508 

LDA 

NUM1+1 

• * 

* 

ft • 

0165 

0867 

8501 

STA 

Ml'H 


. 


0166 

0869 


• 


• 


• 

0167 

0869 

ADB308 

LDA 

OPER 

DO THE OPERATION 


* 

0168 

086C 

C9AB 

CMP 


• 

ft 

ft •* 

0169 

086E 

F01E 

BEQ 

LB2 


' - 


0170 

0870 

C9AD 

CMP 




* 

0171 

0872 

F020 

BEQ 

LB3 




0172 

0874 

C9AA 

CMP 

#’*’ 

4 

ft 



0173 

0876 

F022 

BEQ 

LB4 


* 

• / 

0174 

0878 

C9AF 

CMP 


- 



0175 

087A 

F024 

BEQ 

LBS 




0176 

08 7C 

ADB208 

LDA 

OPERPOS 

* 

- 

- 

0177 

087F 

8509 

STA 

CCPOS 



• 

0178 

0881 

202608 

JSR 

SEROR 

4 • • 


* 

0179 

0884 

A908 

LDA 

#>MSG1 

ft 


- 

0180 

0886 

A2B6 

LDX 

#<MS61 




0181 

0888 

A01 1 

LDY 

#MSG2-MSG1 


ft 

0182 

088A 

208E0D 

JSR 

SRITE 

> 

ft 


4 

ft 

4 

ft 

4 



0183 

088D 

60 

% 

RTS 

0184 

088E 


- 


0185 

088E 

200C08 

LB2 

JSR 

0186 

0891 

4CA308 

- 

JMP 

0187 

0894 

200109 

LB3 

JSR 

0188 

0897 

4CA308 


JMP 

0189 

089A 

20040D 

LB4 

JSR 

0190 

089D 

4CA308 


JMP 

0191 

08A0 

201C0C 

LBS 

JSR 

0192 

08A3 

5096 

LB6 

BVC 

0193 

08A5 

202608 


JSR 

0194 

08A8 

A90B 


LOA 

0195 

08 A A 

A2C7 


LDX 

0196 

08AC 

A00E 


LDY 

0197 

08AE 

208E0D 


JSR 

0198 

08B1 

60 

RTS 

RTS 

0199 

08B2 




0200 

08B2 

00 

OPERPOS DS 

0201 

08B3 

00 

OPER 

DS 

0202 

08B4 

0000 

NUM1 

OS 

0203 

08B6 

C9CCCC 

MSG1 

DC 

0204 

08 C 7 

CED5CD 

MSG2 

• DC 

• 

0205 

0805 

. ' * 

MSG3 

DS 

0206 

0805 

• 


END 


SADD2 

LB6 

SSUB2 

LB6 

SMULT 

LB6 

SDIVD 

LB1 CHECK FOR OVERFLOWS 

SEROR 

#>MSG2 

#< MSG2 

#MSG3-MSG2 

SRITE 


1 POSN. OF OPERATION 

1 OPERATION CHAR 

2 TEMP NUMBER 
C * ILLEGAL OPERATOR. ' 

C * NUMERIC ERROR. ’ 

0 


Local Symbol Table 


LB1 

083B 

LB2 

088E 

LB3 

LB5 

08A0 

LB6 

08A3 

MSG1 

msgs ; 

0805 

NUM1 

08B4 

OPER 

RETURN 

0080 

RTS 

08B1 



0894 

08B6 

08B3 


LB4 

MSG2 

OPERPOS 


089A 

08C7 

08B2 



0207 

08D5 

s 

- 

* 

- 

- 

■ 

0208 

08D5 


• 



. 4 


0209 

08D5 


**************************************** 

0210 

08D5 

• . ’ 

* 




* 

0211 

08D5 


* 

SGETC - READ A NON-BLANK CHARACTER 

k 

* 

0212 

08D5 

• 

* 

* 


k 

* 

0213 

08D5 


* 

inputs: 



4 

* 

0214 

08D5 


* 

LINE ■ 

- INPUT 

BUFFER 

* 

0215 

0805 


* 

CCPQS 

- POSITION IN BUFFER 

* 

0216 

• 

08D5 


* 

PUTBUF - PUTBACK BUFFER 

* 

0217 

08D5 

- 

* 




* 

0218 

08D5 

• 

* 

OUTPUTS: 


• 

* 

0219 

08D5 


* 

A - CHARACTER 

READ 

* 

0220 

08D5 


* 



% 

* 

0221 

0805 


**************************************** 

0222 

0805 


* 





0223 

0805 


SGETC START 




0224 

08D5 






• 

0225 

0805 

A50A 


LDA 

PUTBUF 

CHECK THE BUFFER 


0226 

0807 

D00D 


BNE 

LB2 

. 


0227 

08D9 




- 



0228 

08D9 

A409 


LDY 

CCPOS 

READ FROM LINE 


0229 

0808 

B90002 

LB1 

LDA 

LINE, Y 



0230 

0SDE 

C8 


INY 




0231 

08DF 

C9A0 


CMP 




0232 

08E1 

F0F8 


BEQ 

LB1 



0233 

08E3 

8409 


STY 

CCPOS 

- 


0234 

08E5 

60 


RTS 




0235 

08E6 






% 

0236 

08E6 

A000 

LB2 

LDY 

#0 

READ FROM BUFFER 


0237 

08E8 

B40A 


STY 

PUTBUF 



0238 

08EA 

60 


RTS 




0239 

0SEB 



END 





Local Symbol Table 

♦ 

• • • 

LB1 08DB LB2 08E6 


* 

\ 


' 


■» - 



4 


0240 

0SEB 

- 

- 




4 

• 

024 1 

08EB 





- - 

' 

0242 

08EB 

- 

♦a-****************************-*** *•*■***•*■* 

0243 

08EB 

% 

* 

4 


* 

* 

0244 

08EB 

- 

* SINIT - PROGRAM INITIALIZATION 

* 

0245 

08EB 


* 




* 

0246 

08EB 

• 

* NOTES: 



* 

0247 

08EB 

• 

* 

1) USES SRITE 

* * 

* 

0248 

08EB 

• 

* 



• 

* 

0249 

08EB 

• 

*******#*********#**************-******-»* 

0250 

08EB 

4 m 

* 



• 


0251 

08EB 


SINIT 

START 


. 

• 

0252 

08EB 


PROMPT 

EQU 

S33 

PROMPT CHAR 

' ‘ 

0253 

08EB 

• 




- 

* 

0254 

08EB 

A233 

* 

LDX 

#2*26-1 

IN IT VARS TO 0 

• * * 4 

0255 

08ED 

A900 


LOA 

#0 

• 


0256 

08EF 

9D0003 

LB1 

STA 

VARS , X 

% 

% 

0257 

08F2 

CA 


DEX 


ft 


0258 

08F3 

10FA 


BPL 

LB1 



0259 

08F5 

2058FC 


JSR 

HOME 

CLEAR THE SCREEN 

• 

0260 

08F8 

A909 


LDA 

#>MSG1 

WRITE THE START 


0261 

08FA 

A20C 


LDX 

#<MSG1 

MESSAGE 


0262 

08FC 

A01D 


LDY 

#MSG2— MSG1 


0263 

08FE 

208E0D 


JSR 

SRITE 



0264 

0901 

208EFD 


JSR 

CROUT 


* 

0265 

0904 

208EFD 

. 

JSR 

CROUT 



0266 

0907 

A9C0 


LDA 

#’0' 

SET THE PROMPT 


0267 

0909 

8533 


STA 

PROMPT 



0268 

090B 

60 


RTS 


• 


0269 

090C 





• 


0270 

090C 

A0A0A0 

MSG1 

DC 

C’ 

9 


0271 

0917 

C9CED4 


DC 

C p INTEGER CALCULATOR' 


0272 

0929 


MSG2 

DS 

0 

• 

• 

0273 

0929 



END 

• 




Local Symbol Table 

LB1 08EF MSG1 090C MSG2 0929 PROMPT 0033 

• • ® 

• • 


M 



0274 0929 

0275 0929 

0276 0929 **************************************** 


0277 

0929 

* 




* 

0278 

0929 

* 

SMATH - 

DO A MATH 

OPERATION 

* 

0279 

0929 

* 

- 



* 

0280 

0929 

* 

notes: 



* 

0281 

0929 

* 

1) 

USES SAL ID 

, SEROR. SEXPR, 

* 

0282 

0929 

* 


SGETC, SIWRT , SNOUT. AND 

* 

0283 

0929 

* 


SRITE 

w * 

* 

0284 

% 

0929 

* 




* 

0285 

0929 

**************************************** 

0286 

0929 

* 





0287 

0929 

SMATH START 



0288 

0929 

m 





0289 

0929 

• 

9 

INITIALIZATION 



0290 

0929 

a 

9 





0291 

0929 A900 


LDA 

#0 

INITIALIZE SGETC 


0292 

092B 8509 


STA 

CCPOS 



0293 

092D 650A 


STA 

PUTBUF 



0294 

092F 20D508 


JSR 

SGETC 

GET THE OPERATION 


0295 

0932 

m 

9 




• 

0296 

0932 

m 

9 

EVALUATE AN EXPRESSION AND PRINT THE 


0297 

0932 

a 

9 

RESULT. 




0298 

0932 

• 

9 





0299 

0932 C9BF 


CMP 

#*?’ 

BRANCH IF NOT AN 


0300 

0934 0033 


BNE 

LBl 

EXPRESSION 


0301 

0936 





0302 

0936 203608 


JSR 

SEXPR 

EVALUATE EXPRESSION 

0303 

0939 A5D0 


LDA 

MIL 

SAVE THE NUMBER 


0304 

093B 8DA709 


STA 

NUM1 


0305 

093E A5D1 


LDA 

M1H 



0306 

0940 8OA809 


STA 

NUM1+1 


A 

0307 

0943 A206 


LDX 

#6 

PRINT SOME BLANKS 


0308 

0945 204AF9 


JSR 

PRBL 

WRITE THE DECIMAL 


0309 

0948 20740B 


JSR 

SIWRT 

RESULT 


0310 

094B 20BD09 


JSR 

SNOUT 



0311 

094E A206 


LDX 

#6 

PRINT SOME BLANKS 


0312 

0950 204AF9 


JSR 

PRBL 



0313 

0953 A9A4 


LDA 


PRINT THE HEX 


0314 

0955 20EDFD 


JSR 

COUT 

RESULT 


0315 

0958 ADA809 


LDA 

NUM1+1 



0316 

095B AEA709 


LDX 

NUM1 



0317 

095E 204 1F9 


JSR 

PRAX 



0318 

0961 208EFD 


JSR 

GROUT 



0319 

0964 20SEFD 


JSR 

CROUT 



0320 

0967 38 


SEC 

c 



0321 

0968 60 


RTS 


• 


0322 

0969 

m 

9 



• 


0323 

0969 

m 

9 

SET A VARIABLE TO 

A VALUE 


0324 

0969 

; 





0325 

0969 201A08 

LBl 

JSR 

SAL ID 

BRANCH IF NOT 


0326 

096C 9021 


BCC 

LB2 

ALPHABETIC 


0327 

096E 




* 


0328 

096E 8DA609 


STA 

TEMP 

SAVE THE INDEX 


0329 

0971 20D508 


JSR 

SGETC 

CHECK FOR AN 


0330 

0974 C9BD 


CMP 




0331 

0976 D01D 


BNE 

ERR 



0332 

0978 203608 


JSR 

SEXPR 

EVALUATE EXPRESSION 

0333 

097B 38 

6 


SEC 


COMPUTE INDEX 





1 



• • ^ “ 

" . 

0334 

* 

097C 

ADA609 


LDA 

* 

9 

* 

TEMP 

0335 

097F 

E9C1 


SBC 

tt'A’ 

0336 

0981 

0A 


ASL 

A 

0337 

0982 

AA 


TAX 

♦ 

0338 

0983 

A5D0 


LDA 

MIL SAVE THE VALUE 

0339 

0985 

9D0003 


STA 

VARS, X 

0340 

0988 

A5D1 


LDA 

M1H 

0341 

09BA 

9D0103 

• 

STA 

VARS+1 , X 

0342 

098D 

38 


SEC 


0343 

098E 

60 

• 

RTS 


0344 

098F 


m 


- 

0345 

098F 


5 QUIT IF THE LINE STARTS WITH ’ 

0346 

098F 


5 



0347 

098F 

C9C0 

LB2 

CMP 


0348 

0991 

D002 


BNE 

ERR 

— 0349 

0993 

18 


CLC 


0350 

0994 

60 


RTS 

. 

0351 

0995 


5 


' 

0352 

0995 


; ERROR ROUTINE 

0353 

0995 

9 

5 



— 0354 

0995 

202608 

ERR 

JSR 

SEROR SHOW WHERE ERROR IS 

0355 

0998 

A909 


LDA 

#>MSB1 

0356 

099A 

A2A 9 


LDX 

#<MSG1 

0357 

099C 

A014 


LDY 

#MSG2-MSB1 

0358 

099E 

208E0D 


JSR 

SRITE 

0359 

09 A 1 

208EFD 


JSR 

CROUT 

0360 

09A4 

38 

• 

SEC 


0361 

09A5 

60 


RTS 


0362 

09A6 


; 


. 

0363 

09A6 


; LOCAL DATA AREAS 

0364 

09A6 


m 

9 



0365 

09A6 

00 

TEMP 

DS 

1 TEMP STORAGE FOR 

0366 

09A7 


i 

• 


INDEX VARIABLE 

0367 

09A7 

0000 

NUM1 

DS 

2 TEMP STORAGE FOR 

_ 0360 

09A9 

• 

t 

• 


NUMBER 

0369 

09A9 

CECFA0 

MSGl 

DC 

C’ NO ACTION REQUESTED . 9 

0370 

09BD 


MSG2 

DS 

0 

0371 

09BD 



END 


Local 

Symbol Table 



• 

• 

ERR 


0995 LBJ 

• 

0969 

LB2 098F MSGl 09A9 

“ MSG2 


09BD NUM1 

• 

09A7 

TEMP 09A6 

* 

* 

* 

* 

* m 

* 




• * * 9 

• 

• * m 

< * 

* 

» * 

. m . 

• 



* * 



**************************************** 

% 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SNOUT - NUMBER OUTPUT TO CRT 
INPUTS: 

Y-A - ADDRESS OF STRING TO 

WRITE 

NOTES: 

1) THE STRING MUST END WITH A 

$00 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


************************************** # * 


0372 

09BD 


0373 

09BD 

• 

0374 

09BD 


0375 

09BD 

- 

0376 

09BD 


0377 

09BD 

. 

037B 

09BD 

• 

0379 

09BD 


0380 

09BD 


0381 

09BD 


0382 

09BD 

• 

0383 

09BD 


0384 

09BD 


0385 

09BD 


0386 

09BD 

% 

0387 

09BD 


0388 

09BD 


0389 

09BD 


0390 

09BD 


0391 

09BD 


0392 

09BD 

8500 

0393 

09BF 

8401 

0394 

09C1 

A000 

0395 

09C3 

B100 

0396 

09C5 

F006 

0397 

09C7 

20EDFD 

0398 

09CA 

C8 

0399 

09CB 

D0F6 

0400 

09CD 

60 

0401 

09CE 



* 



SNOUT 

START 


COUT 

EQU 

$FDED 


STA 

R0 


STY 

R1 


LDY 

#0 

NT1 

LDA 

<R0) , Y 


BEQ 

NT2 


JSR 

INY 

COUT 


BNE 

NT1 

NT2 

RTS 

END 

• 


CHARACTER OUTPUT 

SAVE THE ADDRESS 

* 

OUTPUT THE ' 
CHARACTERS 


Local Symbol Table 


GOUT 


FDED NT1 


09C3 NT2 


09CD 



0402 

09CE 

6 


9 * % 

* 


0403 

09CE 





0404 

09CE 

- 


- 


0405 

09CE 


**************************************** 

0406 

09CE 


* 


* 

0407 

09CE 


* 

SPUTB - PUT BACK A CHARACTER 

* 

0408 

09CE 


* 

- 

* 

0409 

09CE 


* 

INPUTS: 

* 

0410 

09CE 


* 

A - CHARACTER TO PUT BACK 

* 

0411 

09CE 


* 


* 

0412 

09CE 


* 

outputs: 

* 

0413 

09CE 


* 

PUTBUF - A 

* 

0414 

09CE 


* 

• 

* 

0415 

09CE 


**************************************** 

0416 

09CE 


* 



0417 

09CE 


SPUTB START 


0418 

09CE 





0419 

09CE 

850A 


STA PUTBUF 


0420 

09D0 

60 


RTS 


0421 

09D1 



END 




0422 

09D1 


0423 

09D1 


0424 

09D1 

- 

0425 

09D1 


0426 

09D1 


0427 

09D1 


0428 

09D1 


0429 

09D1 


0430 

09D1 


0431 

09D1 


0432 

09D1 

+ 


0433 

09D1 

• 

0434 

09D1 


0435 

09D1 


0436 

09D1 


0437 

09D1 


0438 

09D1 


0439 

09D1 

38 

0440 

09D2 

A5D0 

0441 

09D4 

E5D4 

0442 

09D6 

85D0 

0443 

09D8 

A5D1 

0444 

09DA 

E5D5 

0445 

09DC 

85D1 

0446 

09DE 

60 

0447 

09DF 



**************************************** 


* * 

* SSUB2 - TWO BYTE SUBTRACT * 

* * 

* INPUTS: * 

* MIL - FIRST ARGUMENT * 

* M3L - SECOND ARGUMENT * 

•* * 

* OUTPUTS: * 

* MIL - RESULT * 


**************************************** 

* 

SSUB2 START 

SEC 

LDA MIL 
SBC M3L 
STA MIL 
LDA M1H 
SBC M3H 
STA M1H 
RTS 
END 




0448 

09DF 


* 

• 


0449 

09DF 


- 


0450 

09DF 




0451 

09DF 


APPEND SUBS. HEX 


0452 

09DF 

******************************************* 

0453 

09DF 

* 


* 

0454 

09DF 

* 

THESE ROUTINES ARE APPENDED TO THE 

* 

0455 

09 DF 

* 

PROGRAM FOR PROBLEM 12.5 TO AVOID 

* 

0456 

09DF 

* 

THE PROBLEM OF A TEXT BUFFER 

* 

0457 

09DF 

* 

OVERFLOW. 

* 

0458 

09DF 

* 

• 

* 

0459 

09DF 

**************************************** 

0460 

09DF 


. 


0461 

09DF 




0462 

09DF 


• 


0463 

09DF 


• 


0464 

09DF 

**************************************** 

0465 

09DF 

* 

, 

* 

0466 

09DF 

* 

SHXID - SEE IF CHARACTER IS HEX 

* 

0467 

09DF 

* 


* 

0468 

09 DF 

* 

inputs: 

* 

0469 

09DF 

* 

A - CHARACTER TO CHECK 

* 

0470 

09DF 

* 


* 

0471 

09DF 

* 

outputs: 

* 

0472 

09DF 

* 

C - SET IF HEX, ELSE CLEAR 

* 

~~ 0473 

09DF 

* 


* 

0474 

09DF 

* 

notes: 

* 

0475 

09DF 

* 

1) USES SNMID 

* 

0476 

09DF 

* 

• • * . 

* 

0477 

09DF 

**************************************** 

0478 

09DF 

* 



0479 

09DF 

SHXID START 


0480 

09DF 




0481 

09DF 20820D 

JSR SNMID 


_ 0482 

09E2 B00B 

BCS RTS 


0483 

09E4 C9C1 


CMP #* A* 


0484 

09E6 9007 

BLT RTS 


0485 

09E8 C9C7 

CMP #’G’ 


0486 

09EA 9002 

BLT OK 


0487 

09EC 18 


CLC 


0488 

09ED 60 


RTS 


0489 

09EE 




0490 

09EE 38 

OK 

SEC 


0491 

09EF 60 

RTS RTS 


0492 

09F0 


END 



\ 

Local Symbol Table ' 

OK 09EE RTS 09EF 



0493 

09F0 



• 



0494 

09F0 





— 

0495 

09F0 




- 


0496 

09F0 

**************************************** 


0497 

09F0 

* 



*• 


0498 

09F0 

* 

SHXIN - 

HEX INPUT 

* 


0499 

09F0 

• 

* 



* 

• 

0500 

09F0 

% 

* 

INPUTS: 


* 

* 

0501 

09F0 

* 

R0 - 

■ ADDRESS 

OF STRING * 


0502 

09F0 

* 



* 


0503 

09F0 

* 

outputs: 


* 


0504 

09F0 

* 

MIL 

- RESULTING BINARY NUMBER * 

• • 

0505 

09F0 

* 

V - 

SET IF ERROR * 


0506 

09F0 

* 



* 


0507 

09F0 

* 

NOTES : 


% 

* 


0508 

09F0 

* 

1) USES SGETC 

, SHXID, SHXNM * 


0509 

09F0 

* 



* 


0510 

09F0 

**************************************^* 


0511 

09F0 

* 





0512 

09F0 

SHXIN START . 

• 


0513 

09F0 




• 


0514 

09F0 A000 


L0Y 

#0 

M1L=0 


0515 

09F2 84D0 


STY 

MIL 

• 


0516 

09F4 84D1 


STY 

M1H 

• 


0517 

09F6 200508 

LB1 

JSR 

SGETC 

GET A NON-BLANK 


0518 

09F9 

i 

• 


• 

CHARACTER 

.. — 

0519 

09F9 20DF09 

• 

JSR 

SHXID 

SEE IF IT’S HEX 


0520 

09FC 9015 


BCC 

LB3 



0521 

09FE 20 100 A 


JSR 

SHXNM 

YES - CHANGE CHAR 


0522 

0A01 

i 

■ 


• 

TO NUMBER 


0523 

0A01 0A 


ASL 

A 

PLACE IN HIGH 

* 

0524 

0A02 0A 


ASL 

A 

NIBBLE 


0525 

0A03 0A 


ASL 

A 



0526 

0A04 0A 


ASL 

A 

. 


0527 

0A05 A204 


L0X 

#4 

USE X TO AVOID 


0528 

0A07 0A 

LB2 

ASL 

A 

MESSING UP GETCHAR 

• 

0529 

0A08 2600 


ROL 

MIL 

* 


0530 

0A0A 26D1 


ROL 

M1L+1 

- 

• 

0531 

0A0C B00A 


BCS 

ERR 

BRANCH IF OVERFLOW 


0332 

0A0E CA 


DEX 


* 


0533 

0A0F D0F6 


BNE 

LB2 

• 


0534 

0A1 1 F0E3 


BEQ 

LB1 



0535 

0A13 




• 


0536 

0A13 20CE09 

LB3 

JSR 

SPUTB 



0537 

0A16 B8 


CLV 




0538 

0A17 60 


RTS 




0539 

0A18 






0540 

0A18 A980 

ERR 

L0A 

#$80 

NO SEV INSTRUCTION, 

• 

0541 

0A1 A 6980 


ADC 

#$80 

SO USE A TRICK 


0542 

0A1C 60 


RTS 


• 

. - - 

0543 

0A10 


END 





Local 

Symbol Table 

* 


• 


- - — 

ERR 

0A18 LB1 

09F6 LB2 

0A07 LB3 

0A13 





’ 





0544 

0A1D 




■ 


0545 

0A1D 

• 





0546 

0A1D 

- " 



* 

% 

- 

0547 

0A1D 

- 

**************************************** 

0548 

0A1D 

0 

* 


. / 

* 

0549 

0A1D 

- 

* 

SHXNM - 

CHANGE HEX TO NUMBER 

* 

0550 

0A1O 


* 



* 

0551 

0A1D 


* 

INPUTS: 


* 

0552 

0A1D 

• 

* 

A - 

CHARACTER 

* 

0553 

0A1D 

• 

* 



* 

0554 

0A1D 


* 

outputs: 

* 

* 

0555 

0A1D 

• 

* 

A - 

NUMBER 

* 

0556 

0A1D 

- 

* 


• 

* 

0557 

0A1D 


**************************************** 

0558 

0A1D 

• 

* 

0 

• 

' 

0559 

0A1D 

• 

SHXNM START 

' 

0560 

0A1D 




• 


0561 

0A1D 

C9C1 

- 

CMP 

#'A’ 


0562 

0A1F 

9002 


BLT 

HX1 


0563 

0A21 

£907 


SBC 

A ? — ” 9' — i 


0564 

0A23 

290F 

HX1 

AND 

#7.00001111 


0565 

0A25 

60 


RTS 

• 


0566 

0A26 



END 

% 

0 


Ldc a 1 Symbol Table 


HX1 


0A23 



ft 

0567 

0A26 

• 

* 

% 

* 

• 

• 

0568 

% 

0A26 


* • 



0569 

0A26 


- 

4 


0570 

0A26 


APPEND SUBS - NUM 

4 

4 m 

0571 

0A26 

**************************************** 


0572 

0A26 

* 

- 

* 

ft 

0573 

0A26 

* 

THESE ROUTINES ARE APPENDED TO THE 

* 

ft 

0574 

0A26 

* 

PROGRAM FOR PROBLEM 12.5 TO AVOID 

* 


0575 

0A26 

* 

THE PROBLEM OF A TEXT BUFFER 

* 

ft 

0576 

0A26 

* 

OVERFLOW. 

* 


0577 

0A26 

* 


* 


0578 

0A26 

**************************************** 


0579 

0A26 





0580 

0A26 


• 



0581 

0A26 

**************************************** 


0582 

4 

0A26 

* 


* 


0583 

0A26 

* 

SGETN - READ A NUMBER 

* 

ft 

0 m 

0584 

0A26 

* 

• • 

* 


0585 

0A26 

* 

outputs: 

• % 

* 


0586 

0A26 

* 

MIL - NUMBER READ 

* 


0587 

0A26 

# 

C - CLEAR IF ERROR 

* 


0588 

0A26 

* 


* 


0589 

0A26 

* 

NOTES: 

* 

• 

0590 

0A26 

* 

1) USES SALID, SGETC, SHXIN, 

ft 

* 

ft 

0591 

0A26 

* 

SNMEV, SNM1D, SPUTB, SRITE 

* 


0592 

0A26 

* 


* 

1 ■ • • 

0593 

0A26 

**************************************** 


0594 

0A26 

* 




0595 

0A26 

SGETN START 



0596 

0A26 



* 

• 

0597 

0A26 A900 


LDA #0 INIT SIGN 


- 

0398 

0A28 8D8D0A 


STA MINUS 


* 

• ....r. v rr . 

0599 

0A2B 20D508 


JSR SGETC GET SIGN 


• 

0600 

0A2E C9AB 


CMP #’+’ 



0601 

0A30 F007 


BEQ LB1 


* 

0602 

0A32 C9AD 


CMP 

. 

• — — ' 

0603 

0A34 F006 . 


BEQ LB2 


* 

0604 

ft 

0A36 EE8D0A 


INC MINUS 



0605 

0A39 20D508 

LB1 

JSR SGETC SEE WHAT KIND OF 



0606 

0A3C C9A4 

LB2 

CMP NUMBER IT IS 

“ 


0607 

s 

0A3E D007 


BNE LB3 


% " * • ■ 

0608 

0A40 





0609 

0A40 20F009 


JSR SHXIN HEX NUMBER 


ft 

0610 

0A43 703A 


BVS ERR 



0611 

0A45 5024 


BVC LBS 

ft • 


0612 

0A47 


• » ^ 



0613 

0A47 201A08 

LB3 

JSR SAL ID READ A VARIABLE 



0614 

0A4A 9012 


BCC LB4 



0615 

0A4C 38 


SEC 

4 


0616 

0A4D E9C1 


SBC A* 



0617 

0A4F 0A 


ASL A 



0618 

0A50 AA 


TAX 



0619 

0A51 BD0003 


LDA VARS, X 


• 

0620 

0A54 85D0 


STA MIL 


ft 

0621 

0A56 BD0103 

• 

LDA VARS+1 , X 


4 

0622 

0A59 85D1 


STA M1H 

* 

ft 

0623 

0A5B 4C6B0A 5 


JMP LBS 

ft 

ft 


0624 

0A5E 




4 

0625 

0A5E 20820D 

LB4 

JSR SNMID READ A DECIMAL 


• 

0626 

* 

m ™ 

0A61 90 1C 


BCC ERR NUMBER 

* . 

• ^ 

ft 

4 » / ’ * . 

4 " 

• ■ • • . , • 

. * * • " 

* 

» * 

ft 

ft 

ft 

* 



0627 

0A63 

20CE09 


JSR 

SPUTB 


0628 

0A66 

209D0A 


JSR 

SNMEV 


0629 

0A69 

7014 


BVS 

ERR 


0630 

0A6B 




• 


0631 

0A6B 

AD8D0A 

LB5 

LDA 

MINUS 

SET THE SIGN 

0632 

0A6E 

F00D 


BEQ 

LB6 

• 

0633 

0A70 

38 


SEC 



0634 

0A71 

A900 


LDA 

#0 


0635 

0A73 

E5D0 


SBC 

MIL 

• 

0636 

0A75 

85D0 

• 

STA 

MIL 


0637 

0A77 

A900 


LDA 

#0 


0638 

0A79 

ESDI 


SBC 

M1H 

• 

0639 

0A7B 

85D1 

' 

STA 

M1H 


0640 

0A7D 

38 

LB6 

SEC 


% 

0641 

0A7E 

60 


RTS 



0642 

0A7F 

• 





0643 

0A7F 

202608 

ERR 

JSR 

SEROR 

INPUT ERROR 

0644 

0A82 

A90A 


LDA 

#>MSG1 


0645 

0A84 

% 

A28E 


LDX 

#<MSG1 


0646 

0A86 

A00F 


LDY 

#MSG2- 

MSG1 

0647 

0A88 

208E0D 


JSR 

SRITE 


0648 

0A8B 

18 


CLC 



0649 

0A8C 

60 


RTS 



0650 

0A8D 






0651 

0A8D 

00 

MINUS 

DS 

1 

NEGATIVE FLAG 

0652 

0A8E 

CED5CD 

MSG1 

DC 

C* NUMBER TOO BIG. ’ 

0653 

0A9D 


MSG2 

DS 

0 


0654 

0A9D 

. . 


END 




Local 

Symbol Table 





ERR 

0A7F 

LB1 

0A39 

LB2 

0A3C 

LB3 

LB4 

MSG1 

0A5E 

0A8E 

LBS 

MSG2 

0A6B 

0A9D 

LB6 

0A7D 

MINUS 


0A47 

0A8D 



* 

* 

0655 

* 

*9 

0A9D 

9 

* 


* 

* 

■ * , 

- * m 

- * # . ’ ’ . . % 

\ - " 

9 * 

• % 

4 

• * • « •> 

% 

m , • 

• • m * 

- . - « 

9 

« ' » 

4 

0656 

0A9D 



- 


' 

• • m * 

0657 

0A9D 

• 


• 


" - . ‘ 

0658 

0A9D 

- 

**************************************** 

0659 

0A9D 

s 

9 

* 


• 

4 

• • » . 9 • 

6 _ • * 

* 

0660 

0A9D 

- 

* 

SNMEV - 

READ 2 BYTE INTEGER * 

0661 

0A9D 


* 



4 . • 

* 

* 

0662 

0A9D 

9 

* 

inputs: 

• 

* 

0663 

0A9D 


* 

R0 

- POINTS 

TO FIRST CHARACTER * 

0664 

0A9D 


* 


OF INTEGER * 

A 

0665 

* 

0A9D 


* 



▼ 

* 

0666 

0A9D 


* 

OUTPUTS 

m 

m 

* 

0667 

0A9D 


* 

MIL 

- RESULT 

* 

0668 

0A9D 


* 

V - 

SET IF ERROR * 

0669 

0A9D 


* 



* 

0670 

0A9D 


* 

NOTES: 


* 

0671 

0A9D 


* 

1> 

INTEGER ENDS WITH FIRST NON * 

0672 

0A9D 


* 


BLANK, 

NON NUMERIC * 

0673 

0A9D 


* 


CHARACTER * 

0674 

0A9D 


* 

2) LEADING SIGNS ARE ALLOWED * 

0675 

0A9D 


* 

3) 1 

USES SGETC, SMULT, SNMID * 

0676 

0A9D 


* 


SPUTB 

• • 

* 

V 

0677 

0A9D 


* 

4) 1 

PUTS BACK 

THE LAST CHAR READ * 

0678 

0A9D 


# 

5) i 

ADAPTED FROM ORCA/EZ * 

0679 

0A9D 


* 


ASSEMBLER LIBRARY * 

0680 

0A9D 


* 



* 

0681 

0A9D 

• 

**************************************** 

0682 

0A9D 


* 




0683 

0A9D 

• 

SNMEV START 


0684 

0A9D 





• 

0685 

0A9D 

A900 


LDA 

#0 

INIT SIGN, LINE 

0686 

0A9F 

8DF80A 


STA 

LSIGN 

COUNTER AND NUMBER 

0687 

0AA2 

8DF70A 


STA 

LC 

« • 

0688 

0AA5 

85D0 


STA 

MIL 


0689 

0AA7 

85D1 


STA 

M1H 


0690 

0AA9 

200508 


JSR 

SGETC 

HANDLE LEADING SIGN 

0691 

0AAC 

C9AB 


CMP 

#’+’ 

. 

0692 

0AAE 

F007 


BEQ 

RD1 

. 

0693 

' 0AB0 

C9AD 


. CMP 


. 

0694 

0AB2 

F006 

- 

BEQ 

R02 


0695 

0AB4 

EEF80A 


INC 

LSIGN 


0696 

0AB7 

20D508 

R01 

JSR 

SGETC 


0697 

0ABA 




• 


0698 

0ABA 

208200 

RD2 

JSR 

SNMID 

QUIT IF NOT A NUMBER 

0699 

9 

0ABD 

9021 


BCC 

RD3 


0700 

0ABF 

48 


PHA 



0701 

0AC0 

A90A 


LDA 

#10 

MULTIPLY OLD STUFF 

0702 

0AC2 

8504 


STA 

M3L 

BY 10 

0703 

0AC4 

A900 


LDA 

#0 

• 

0704 

0AC6 

8505 


STA 

M3H 

* m • 

0705 

0AC8 

200400 


JSR 

SMULT 

* . 

0706 

0ACB 

68 


PLA 

• 

ADD IN NEW DIGIT 

0707 

0ACC 

7028 

- 

BVS 

RTS 

• m 

* 

0708 

0ACE 

290F 


AND 

#$F 

* 9 

0709 

0AD0 

18 


CLC 


• . . ► . 

• 9 

0710 

0AD1 

6500 


ADC 

MIL 

4 

* 

0711 

0AD3 

8500 


STA 

MIL 

* m 

0712 

0AD5 

90E0 


BCC 

RD1 

* 

0713' 

0AD7 

E6D1 


INC 

M1H 

. 

0714 

0AD9 

D0DC 

- 

BNE 

RD1 

* 

4 

4 

9 

m * 



0715 

0ADB 

AS»7F 

. 

LDA 

#*7F 

SEV 

0716 

0ADD 

6908 


ADC 

#$08 

- 

0717 

0ADF 

60 


RTS 


- 

0718 

0AE0 

• 





0719 

% 

0AE0 

20CE09 

RD3 

JSR 

SPUTB 

PUT BACK A CHAR 

0720 

0AE3 

ADF80A 


LDA 

LSIGN 

SET LSIGN 

0721 

0AE6 

F00D 


BEG 

RD4 


0722 

0AE8 

38 


SEC 



0723 

0AE9 

A900 


LDA 

#0 


0724 

0AEB 

E5D0 


SBC 

MIL 

• 

0725 

0AED 

85D0 


STA 

MIL 


0726 

0AEF 

A900 

• 

LDA 

#0 

• 9 

0727 

0AF1 

ESDI 


SBC 

M1H 


072B 

0AF3 

85D1 


STA 

M1H 


0729 

0AF5 

B8 

RD4 

CLV . 



0730 

0AF6 

60 

RTS 

RTS 



0731 

0AF7 


J 




0732 

0AF7 


5 VARIABLES 



0733 

0AF7 

w 

m 

t 




0734 

0AF7 

00 

LC 

DS 

1 

LINE COUNTER 

0735 

0AF8 

00 

LSIGN 

DS 

1 

LOCAL SIGN FLAG 

0736 

0AF9 



END 




Local Symbol Table 

LC 0AF7 LSIGN 0AF8 RD1 0AB7 RD2 

RD3 0AE0 RD4 0AF5 RTS 0AF6 


0ABA 


0737 0AF9 

0738 0AF9 

0739 0AF9 

0740 0AF9 

0741 0AF9 


APPEND SUBS. UTILITY 

**************************************** 
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Chapter 1 -- Setting Up Your System 

$$ What You Should Have 

* 

ORCA/EZ comes with this manual, a reference card found at 
the end of the book, and a disk. As distributed, ORCA/EZ is set up 
for use with a minimally-configured Apple II computer: an uppercase 
only forty column display with a single disk drive in slot six, drive 
one. There are a number of configuration options which allow 
ORCA/EZ to take advantage of additional hardware available on a 
specific system. These options are changed using the monitor 
OPTIONS command, described later in this chapter. 

9 m 

A catalog of the disk is shown in Figure 1 . Place the ORCA/EZ 
disk in slot 6, drive 1 and turn on your computer. When the program 
finishes loading, you will see a version number, a copyright notice, 
and the # prompt used by ORCA/EZ. You can now type 

CATALOG 

followed by the RETURN key to get a catalog of the disk to compare 
with the one in figure 1 . 


ORCA/EZ 1 .0 
BY MIKE WESTERFIELD 
COPYRIGHT (C) JULY 1985 
BY THE BYTE WORKS, INC. 


CATALOG 

VOLUME NUMBER 100 

56% FILLED (260 SECTORS LEFT) 

*B 105 ORCA/EZ 
*S 005 SUBS. COMMON 
*S 020 SUBS. UTILITY 
*S 021 SUBS.UTILITY2 
*B 021 CONVERT 


Figure 1 



ORCA/EZ 

% 

s 

This file is the program itself. It consists of a small operating 
system, a command interpreter, a text editor and the assembler. 

SUBS.= 

The subroutines in these three files provide standard routines 
for two byte integer mathematics and text I/O. These files all show a 
file type of S, which identifies them as ORCA/EZ source files. 
These can be loaded and edited using the ORCA/EZ editor. 

CONVERT 

• • 

% 

This is a file conversion utility, used to convert source files to 

standard DOS text files and vice versa. See Appendix C for a 
description. 

Maybe you noticed that there is no HELLO program on the 
disk. This is because DOS is not used by ORCA/EZ. The disk has a 
special boot section which boots directly into ORCA/EZ. It is still 
possible to run the assembler from DOS using a BRUN command, 
but the load time is excessive. If you want to move the program to a 
new disk (and we recommend that you do so), do a full disk copy 
with a program like Apple Computer's COPYA, so that you get this 
special boot code on the disk, too. 

$$ System Initialization 

ORCA/EZ is capable of permanently modifying itself by using 
the monitor command OPTIONS. This section gives you a thorough 
description of exactly how this is done. The first step is to make a 
backup copy of the ORCA/EZ disk - you should never modify the 
original in any way. ORCA/EZ is not copy protected, so any copy 
program, including the COPYA program that comes with Apple 
DOS, will be able to copy it. Make a backup copy now and place the 
original in a safe place. 



Back already? Did you really make a backup? If not, please do 
so for your own protection. In fact, make two - disks are cheaper 
than programs! Remember, though, that backups are for your 
personal use only. 

Now place your copy of ORCA/EZ into your computer and 
reboot by typing PR#6. The next step is to type 

k 

OPTIONS 

* • k 

followed by a RETURN. The options menu appears, showing you 
what you can change. Most of the options are simple toggles - 
press the number of the menu item once, and the message 
changes to indicate a different option. Press the same number 

again, and the original message comes back. Try typing a "I". If 

your computer can display lowercase letters, the display changes to 
a mixed uppercase and lowercase display; if your computer cannot 
display lowercase, the screen is filled with garbage. Set the toggle 
the way you like it. 

The second option allows the use of the shift key modification 
to type uppercase letters using the shift key. If you have an Apple 
//c, an Apple He, a Franklin ACE 1 000, or if your computer has been 
modified to use the shift key, enable this option by typing a "2”. 

As mentioned in the introductory chapter, the ORCA/EZ 
editor is capable of detecting errors in assembly language programs 
and showing you an error message as soon as you hit RETURN. 
This is great when you first start, but may be annoying after you get 
proficient. Option 3 allows you to disable the automatic error 
checking. This is highly discouraged if you are a beginner. 

If your system has more than one disk drive, you will want to 
use option 4. As explained later, the assembler is capable of 
searching for what it wants. Option 4 lets you tell the system what 
disks you have available for the assembler to search. When you 
type "4", you are presented with a series of eight questions asking if 
you have a disk drive in a particular slot and drive combination. If you 
have a standard 35 track drive there, answer with a "Y", otherwise 
use "N”, even if you have some non-standard disk installed. 
ORCA/EZ only uses standard equipment. 

3 



Next is an option to let you set the printer initialization string. It 
is preset to A I80N, interpreted as CTRL I 80N. (Control keys are 
indicated by preceding them with a " A,, character.) This is correct for 
most printers, and you surely have discovered by now if your printer 
is an exception. If so type "5", and follow with the correct 
initialization for your printer. Remember to use a " A " character 

before letters that are control characters. 

% 

_ _ % 

Option 6 lets you decide how the system will respond to an 
assembly error. Normally, it beeps the speaker and stops. It stays 
stopped until you press a key. If you don’t like this type of 
response, disable it using this option. 

If you are using an Apple //c, or an Apple He with an 80 column 

board, use option 7 to inform the system about the board. This 

gives you a full 80 column editor. Only the 80 column board 

supplied for these computers will work - if you have an older Apple 

][, you must use the 40 column display, even if you have an 80 
column board. 

The next option, option number 8, is the one that makes the 
changes permanent. We're not quite ready to do that yet, so type 
"Q" to leave the options menu instead. When option 8 is used, 
ORCA/EZ saves itself onto disk, replacing the old version of the 
program. Right now, ORCA/EZ is locked, so we must first unlock it. 

Having typed a "Q" from the options menu, you are now in the 
ORCA/EZ monitor, with its characteristic prompt. Type the 


UNLOCK ORCA/EZ 

then return to the options menu by typing OPTIONS. If you have 
made any changes from the standard configuration, now is the time 
to use option 8. Just type ”8" and give the system a while to save 
the program. Afterwards, type "Q" to get back to the monitor. 

A few other comments are in order about this process. First, 
as you noticed when you used option 1 to enable the lowercase 
display mode, any change to the options menu takes effect 
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. 



immediately. The change is temporary, though, and will disappear 
the next time you boot ORCA/EZ unless option 8 is used to make 
the changes permanent. Thus, if you switch computers temporarily, 
you can reconfigure ORCA/EZ without using option 8, and the 
system will be back to normal the next time you boot. Also, note 
that if you change the tab stops using the TAB command, the tab 
stops will be back to normal the next time you boot. If you use the 
TAB command, option 8 will make any changes permanent. 





Chapter Two -- The Monitor 
$$ Introduction 

The ORCA/EZ monitor provides a set of commands that allow 
files on disk to be examined and changed, assembler source files to 
be loaded and saved, and for programs to be assembled and 
executed. 

9 

Below is a summary of the commands, listed in the order in 
which they can be found in the Monitor Command Descriptions 
section, starting on page 000. 

Monitor Commands 


APPEND xxx 

append file xxx 

ASSEMBLE 

assemble the file in memory 

BRUNxxx 

execute file xxx 

CATALOG xxx 

catalog the disk 

COPY 

copy file 

DELETE xxx 

delete a file 

DOSx 

boot the disk in slot x 

EDIT 

soft entry to the text editor 

FREE 

display memory used 

HELP 

help menu 

LOAD xxx 

load file xxx 

LOCK xxx 

lock file xxx 

NEW 

hard entry to text editor 

OPTIONS 

set options 

PRINT 

print file 

QUIT 

exits the system 

RENAME xxx, yyy 

rename file xxx 

RESET 

reset modification count 

RESTORE xxx 

restore file xxx 

RUN xxx 

assemble and execute a program 

SAVE xxx 

save file xxx 

TAB 

set tab line 

UNLOCK xxx 

unlock file xxx 

VOLUME x 

set volume number 
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$$ Entering Monitor Commands 


$$$ Abbreviating Commands 


Monitor commands may be entered any time the # prompt 


command 


■ / VW. I M l IUI >M VI VOVI ipilUl I yiYCII UvlUW 

starts with a command format, showing how the command should 
be entered. It is only necessary to type enough of the command to 
distinguish it from other commands which precede it alphabetically. 
For example, C is sufficient to get a catalog of the disk. To copy a 
disk file, CO is all that would be required. If more letters than 
required are entered, they are checked against the complete 
command to insure that all of the letters are valid. For example COF 
works for COPY, but COY would result in an j 



error. 

If a command requires operands, at least one space must 
follow the command. DOS would allow CATALOG, D2 or CATALOG 
D2. Only the second example is valid in ORCA/EZ. The blank 

character distinguishes a command from its operands. Commas 

may stiH be used, but they must be preceded by a space; C D2 or 
simply c D2 would perform a catalog listing of drive 2. 


$$$ Wildcards 


. I!! 08 * C °T andS that use dlsk ,ile names can use the wildcard 

character =. When encountered, the = character can substitute for 

any number of characters (or zero characters). For example, 

• / - 

CATALOG SUBS= 


4 

produces a catalog of all files beginning with the characters "SUBS". 

If wildcard filenames cannot be used with a command, this is noted 
in its description. 


$$$ Parameters 

% 

Commands which reference disk files allow the use of volume 
slot and drive parameters. These parameters are optional; they are 
used to switch the disk that the monitor is using or to check the 
volume parameter of a disk. To code them, follow the filename used 


m S . • 

with the command by a comma, the first letter of the parameter (S, D, 
or V), and the value of the parameter. Any combination of 
parameters in any order may be used. For example, the following 
commands will append a file from slot 5, drive 2 to a file from slot 6, 

drive 1 , and save the result on the disk in slot 6, drive 1 . 

* 

* * • 

#LOAD FILE1.S6.D1 
#APPEND FILE2,D2,S5 
#SAVE FILE1 ,D1 ,S6 

Once a disk has been referenced, it remains the default disk until a 
slot or drive parameter is encountered that changes it. 

A technical detail worth noting is the fact that when Apple 
DOS checks the volume parameter, it uses the volume number 
embedded in the sector header, which can only be changed using 
the DOS INIT command. The assembler uses the volume number in 
the volume table of contents (VTOC), which is located at track 17, 
sector 0. If the volume number in the VTOC is changed using the 
VOLUME command explained below, this could result in different 
responses from Apple DOS and the ORCA/EZ operating system. 
This is because the VOLUME command only changes the volume 
number found in the VTOC. Both operating systems will still 
function properly, they simply disagree on the volume number. 

$$ Monitor Command Descriptions 

• • • 

APPEND xxx - Append a File 

• • • 

% • • 

This command appends file to the file in memory. Prior to 
loading file &&, all blank lines are removed from the end of the file in 
memory. File is then placed at the end of the file in memory. If 
the wildcard parameter is used, only the first file that fits the wildcard 
name is appended. 

ASSEMBLE - Assemble the File in Memory 

The assembler is directed to assemble the source file 

® m ft 

currently in memory. After the assembly has been completed, the 
assembler returns control to the operating system, which reenters 



the monitor. See Chapter IV for a description of the assembly 
process. 

• m • — 

« ■ 

BRUN - Binary Run 

File X2& is executed. This command is equivalent to the DOS 
command by the same name. If the program ends with an RTS, 
control will pass back to the operating system. For a program to load 
and execute properly, it must not be located at the same location as 
ORCA/EZ. It is best to let programs run at the default location of 
$800. Such programs must be 6K or shorter, or they will write over 
ORCA/EZ with very unpredictable results. 

• I 

If a program is longer that 6K, or if it uses any memory from 
$2000 to $BFFF, boot Apple DOS by typing DOS, then BRUN the 
program from DOS. 

CATALOG xxx - Catalog the Disk 

The disk volume number and amount of the disk in use are 
printed. The files on the disk are then listed in the order that they 
are encountered on the disk directory. Each file name is preceded 
with a file type identifier and the number of sectors used (in 
decimal). The file type identifier is preceded by an asterisk if the file 
is locked. File types include 

A - Applesoft BASIC Programs 
B - Binary files and assembled programs 
I - Integer Basic Programs 
R - Relocatable files (used only in ORCA/M) 

S - Assembler source files 
T - DOS text files 

• • • 

The file name is optional. When used, it is generally in 
conjunction with the wildcard parameter. For example, the 
command 

+ * m m 

CATALOG SUBS.= 

• & 

would produce a catalog of only those files which start with the 

characters "SUBS.". 

« * • • 
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COPY - Copy Files 

* 

• m 6 

Files may be copied from one disk to another with this 

command. After the command has been entered, it prompts for the 
disk slot and drive numbers of the source and destination disks, and 
the file name to be copied. Wildcards are valid file names. 

If the file being copied is already on the destination disk, a 
message is displayed asking if it is to be replaced. Entering any 
reply that starts with a Y deletes the old file and replaces it with the 
file being copied. Replies starting with an N invoke a prompt for a 
new file name. The file being copied is then copied using the new 
file name provided. Hitting RETURN without entering a file name 
cancels the copy. 


DELETE xm - Delete a File 

File M2L is deleted from the disk. This command is identical in 
function to the DOS command of the same name, except that it can 
use the wildcard parameter. For example, if the command D = is 
typed from the monitor the assembler will ask 

Do You Want Prompting? 

Typing Y will list each catalog name and wait for a reply of Y or N for 
each file. Answering the original prompt with an N will automatically 
delete all files that match the wildcard parameter. 

DOS s - Boot DOS 

Apple DOS is booted. This is equivalent to IN#6 or PR#6 from 
BASIC. To boot from another slot, enter the slot number after the 
DOS command. 

EDIT - Soft Entry to the Text Editor 

This command enters the edit mode without disturbing the file 
in memory. The first page of the file in memory is displayed, and the 

edit cursor is placed in the upper left-hand corner. Using this 

• • 
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command without first having loaded or entered a program (see 

NEW on page 000) may result in garbage text being found in the 
text file. 

* • 

Normally, this command is used to edit a file loaded from disk 

or left in memory while other monitor commands are used. It can 

also be used to attempt recovery of a file left in memory while 

running a program. So long as the text buffer has not been 

disturbed, the file will be intact. The text buffer is located from 
$D000 to $EFFF. 

* a 

FREE - Display Memory Used 

This command displays the percentage of the text file used by 
the file currently in the text edit buffer. If the edit buffer is overfilled, 
the editor will return to the monitor upon encountering any 
command that would add to the length of the file. 

HELP - Help Menu 

• a 

The first half of the monitor commands, along with a brief 
description of each, is printed on the screen. The arrow keys can 
be used to switch between the first and second pages of the help 
screens. The RETURN key returns control to the monitor. 

LOAD - Load File 

This command loads file && from disk into the text edit buffer. 
The file must be of type S (source code). 



LOCK xxx - Lock File xxx 

File sxx is locked. Any attempt to delete or change it will result 
in a file locked error message. A locked file is denoted by an * in 
front of its catalog name. The file may be unlocked using the 
UNLOCK command. 

* ■ a • 

• • • % m 

NEW - Hard Entry to Text Editor 

• * • • v 

This command deletes the text edit file in memory and then 
enters the text edit mode. The edit cursor is placed at the upper left 
corner of the blank first page. This command is used to enter the 
editor when the system is first brought up or when the file in 
memory is no longer needed. 

OPTIONS - Set Options 

* • . 

This command allows system options to be set, and then 
allows the changes to be made permanent. See Chapter I for a 
complete description. 


PRINT - Print File 

The file in memory is printed without assembling or resolving 
COPY and APPEND directives. The output is sent to slot one, 
where an 80 column printer is expected. 

Each line is preceded by a four digit line number and a space. 
After each group of 60 lines, six blank lines are printed to advance 
to the next page . 

This command should be used only if a printer is on line; 

* • * 

otherwise the system will hang, waiting for a printer response which 
never arrives. 

QUIT - Exits the System 

Control is passed to the Apple monitor. The system may be 
re-entered by typing CTRLY, or on Autostart ROM models, by 
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hitting RESET. Remember that Apple DOS has been overwritten. If 
DOS is needed, the disk must be rebooted. 


RENAME xxx. vw - Rename File MX 


Changes the name of file MX to yyy. This command is identical in 
function to the DOS command by the same name. Volume, slot and 
drive parameters may be used. Wildcard parameters can only be 
used in the first (xxx^ file name. 


RESET - Reset Modification Count 

The byte which holds the number of times a source file has 
been saved is reset to zero. Each time the file is saved, the count 
will be incremented by one. This can be used after major version 
changes to keep track of which files have been changed. 

RESTORE mx - Restore File MX 

The disk is searched for a deleted file with the name MX- If the 
file is found and none of its sectors have been reused, it is restored. 

The wildcard parameter cannot be used in the file name for this 
command. 

• b 

RUN mx - Execute a Program 


The source file in memory is assembled. If the highest error 
level encountered was less that the highest error level allowed 
(usually meaning that no errors were found) and if the KEEP 
directive was used to keep the finished program, the program 

created by the assembly is executed. 

# • 

SAVE MX - Save File MX 


This command saves the file in the text edit buffer onto disk, 
naming the file MX- Volume, slot and drive parameters may be used. 
The file type will be S, (source file). The number indicating how 
many times the file has been changed (which is incremented each 
time the SAVE command is used) is also saved with the file. This 
number is called the update number, and is displayed when the file 
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is loaded. The number will increment up to 255, after which point it 
will reset to 0. 

% 

If the file has been saved before, the number of sectors 
needed to store the file can change. Unlike Apple DOS, if fewer 
sectors are needed, the unused sectors are released. 

If no file name is given the system asks if the old file name 
should be used. If the old file name was OLDFILE, the question is: 

USEOLDFILE? 

* • * w 

Responses starting with an N return control to the monitor. 
Responses starting with Y will save the file under the old file name. 

Any other response repeats the prompt. 

_ • • . 

If the file is new and an attempt is made to save the file without 
a file name, the assembler will prompt with 

USE NONAME? 

Any reply beginning with a Y will save the file under the name 
NONAME. A reply of N will return control to the monitor, allowing the 
save command to be typed again and the name of the file to follow. 

TAB - Set Tab Line 

• t * % ' ' 

This command allows the tab controls used by the text editor 
to be changed. After typing this command, the current tab stops 
are printed on the screen. The input cursor is placed in column one 
of the tab line. Keys from the following table are accepted as input. 
Numbers that are entered become part of the new tab line. 

% 

-> Go right one space (stops in column forty of the 

second line). 

<- Go left one space (stops in column one of the first 

line). 
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RETURN Exits the tab mode, replacing the existing tab line 

with whatever is on the screen. This may be 
entered from any column. 

0 Tab skip. The editor tab command skips over all 

columns containing a 0 in the tab line. 

• * * • 0 • % 

1 Tab stop. The editor tab command stops at the 

next 1 in the tab line. 

2 End of line. Editor input past the column with the 

2 in the tab line is not permitted. The cursor will 
no longer be advanced after a character is 
entered. 

If an eighty column printer is being used, it is recommended that the 
tab stop be placed in or before column fifty-nine, since the 
assembler makes use of twenty-one columns for its own output. 

Changes to the tab line can be made permanent using the 
OPTIONS command. 

UNLOC K xxx - Unlock File xxx 

Unlocks file ml, so that it may be deleted or changed. This 
command is equivalent to the DOS command of the same name. 

VOLUME l - Set Volume Number 

The ORCA/EZ operating system makes frequent use of the 
volume number recorded on the volume table of contents (VTOC), 
located at track 17, sector 0. A disk's volume number is set up by 
the DOS INIT command. Quite often, disks are initialized without 
specifying a volume number, in which case it defaults to volume 
254. Since a disk's volume number is used by the system to 
identify assembler input and output files, it is desirable to be able to 
set a given disk to a unique volume number. This command 
changes the volume number in the VTOC to L- 

* 

Note that this does not change the volume number recorded 
in the header of each sector. To change that number, the disk 
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would have to be re-initialized. This means that after the volume 
number has been changed using this command, the ORCA/EZ 
system and Apple DOS report different volume numbers, because 
the VOLUME command only alters the volume number recorded in 
the VTOC. Apple DOS makes use of the volume number recorded 
in the sector headers instead. This difference should not cause any 
problems; both systems will be able to use the disk normally, 
excepting their different volume numbers. 

Because ORCA/EZ is a disk based, assembler source code 
can be spread over many disks without hindering the assembly 
process. The assembler differentiates between these disks by 
checking the volume numbers. For this reason, it is extremely 
important to have different volume numbers on the disks, or the 
assembler may mistake one disk for another and write over the 

wrong sectors. 





Chapter Three -- The Text Editor 

* m m 

S 

* m 

fc 

fc 

$$ Introduction 

The text editor commands are grouped into sections with 
similar functions. For example, all cursor movement commands are 
grouped together, as are all search string commands. What follows 
is an outline of each section covered, with the page number the 
section starts on, and a list of the editor commands used in that 
section. This is provided for easy reference once you know what 
type of function the editor is needed to perform, but cannot 
remember what commands are needed to carry it out. 

Detailed descriptions of these commands follow this summary. 

Text Editor Commands 

Text Entry 

Special Function Keys 21 

<- 

-> 

up arrow (CTRL-K) 
down arrow (CTRL-J) 

CTRL 

DELETE 

rI?urn 

RESET 

SHIFT 

TAB (CTRL-1) 

• • • 

User Buffers 

•• 

% • • * • 

* , 

Copy Buffer 24 

String Buffers 24 

# * 

Character Buffer 24 
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Control Character Commands 
Cursor Movement Keys 


CTRLS 

tab left 

TAB (CTRL-1) tab right 

CTRLE 

end of line 

• 

CTRLW 

start of line 

CTRLT 

top of text window 

CTRLB 

bottom of text window 

CTRLF 

first line of file 

CTRLL 

• 

• 

last line of file 

String Search Commands 

CTRLZ 

search up 

CTRLX 

search down 

CTRLC 

search and replace up 

CTRLV 

search and replace dov 

Miscellaneous Commands 

CTRLD 

delete to end of line 

CTRLG 

toggle display 

CTRLO 

shift lock 

CTRLP 

pop lines out of buffer 

CTRLQ 

quit editor 

CTRLR 

remove blank lines 


Escape Commands 


Repeat Feature 

Cursor Movement Commands 

move up 
move left 



I 

ESC J 
ESC K 

M 



move right 
move down 


Edit Window Control 


ESCE 
ESCC 
ESC W 
ESCX 


scroll up one line 
scroll down one line 
scroll up one page 
scroll down one page 



t 


f 


Insert and Delete 3 1 

ESC B insert line 

ESCY delete line 

ESC H insert character 

ESCG delete character 

* 

Non-keyboard Characters 32 

ESC / backward slash (\) 

ESC - underline (_) 

ESC + tilde (~) 

ESC! vertical bar (|) 

ESC ( left curly bracket ({) 

ESC ) right curly bracket (}) 

ESC < left square bracket ([) 

ESC > right square bracket (]) 

ESC% at sign (@) 

ESC ” up arrow ( A ) 

Buffer Commands 32 

0 

ESC * enter search string 

ESC : enter replacement string 

ESC O delete lines to buffer 

ESC P copy lines to buffer 

ESC F display memory used 

DELETE delete character to buffer 

Open Apple DELETE insert a character from buffer 


$$ Text Entry 

Upon entering the text editor, (using the monitor EDIT or NEW 
commands), the user is presented with a screen which can display 
twenty-two lines of text. These are the first twenty-two lines of the 
text file in memory; if there is no file in memory, the screen is blank. 
The memory area occupied by the text file is called the text edit 
huffer . The twenty-two lines displayed occupy the text edit window. 
The text edit window allows examination of any twenty-two 
contiguous lines in the text edit buffer. 


21 



What is seen in the window is exactly what is in that area of the 
text edit buffer. Text is entered into the text edit buffer as keys are 
typed. Any keyboard character may be entered as text except for 
the special function keys (<-, ->, up arrow, down arrow, ESC, CTRL, 
SHIFT, REPT, RETURN, DELETE, TAB, and RESET). 

The character typed replaces whatever character (if any) was at 
the cursor position, and the cursor advances one space. There are 
two cases when the cursor does not advance: either the print stop 
option has been used in the tab line (see the description of TAB on 

page 000), or the cursor was in column eighty. In either of these 
cases, the cursor remains in its old position. 

The text editor allows entry of eighty column lines of source 

code on a forty column screen. Since the standard screen is only 

forty columns wide, the screen must be able to follow the cursor. As 

the cursor leaves the screen to the left or right, the display is shifted 

twenty columns in that direction. If an 80 column display is in use, 
this feature is never used. 

Using more than fifty-nine columns will cause wrap-around 

when the assembled output is sent to an eighty column printer; for 

this reason, there is an end of line marker in column fifty-nine. If 

more than fifty-nine columns are being used, reset the tab line as 

explained on page 000. This would normally be done only if a 

printer that will print more than eighty columns on a line were being 
used. 

The special function keys have slightly different uses than are 
found when line-editing in BASIC; they are described below: 


Moves the cursor one space to the left. If the 
cursor was in column one, the key is ignored. 

Moves the cursor one space to the right. The key 
is ignored if the cursor started in column eighty or 
if the cursor was on an end of line marker 


22 


Up Arrow 

Down Arrow 

CTRL 

DELETE 

ESC 

RETURN 

RESET 

SHIFT 

TAB 


Moves the cursor up one line. If the cursor started 
on the top line of a file, the key is ignored. (This 
key is not on older Apples. Use CTRL-K instead.) 

Moves the cursor down one line. (This key is not 
on older Apples. Use CTRL-J instead.) 

• • 4 

The control keys are used for special editor 
functions. These are described starting on page 
000 . 

Does a destructive back space, filling the space left 
by the deleted character with the remaining 
characters in the line. (This key is not on older 
Apples.) 

The ESC key is used for special editor functions. 
These are described starting on page 000. 

The return key places the cursor at the beginning 
of the next line. If the cursor started on the bottom 
line of the page, the text window is scrolled up 
before the return is issued. 

The RESET key returns control to the ORCA/EZ 
monitor. (On non-autostart ROM models, control is 
returned to the Apple monitor.) The text edit buffer 
is left intact, but recent changes may not have 
been entered. It is therefore poor form to exit the 
text editor via the RESET key. 

The SHIFT key allows entry of upper-register 
keyboard characters. If the shift key modification 
has been make, or if an Apple //e or Apple //c is 
being used, using SHIFT will give capital letters 
when in the lower-case entry mode. 

♦ 

* — * 

Moves the cursor forward to the next tab stop. 
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$$ User Buffers 

* u mu 

$$$ The Copy Buffer 

* m 

* 

The copy buffer is a special area of memory used to 
temporarily store lines of text. Up to 99 lines may be stored. Text is 
moved to the copy buffer using the copy ( ESC P ) and delete ( ESC 
O ) commands (see page 000.) When these commands are used, 
the old contents of the copy buffer are replaced. 

% 

After text has been placed in the copy buffer, CTRL P is used 

to pop the lines into the text file at the cursor location. These 

commands allow text to be duplicated in several places or moved 
from one place to another. 

Saving and loading files does not disturb the copy buffer. 

$$$ The String Buffers 

The string buffers are memory reserved for storing the search 

and re place strings. They are filled using the ESC * (search string) 

and ESC : (replace string) commands (see page 000). The * string 

can then be searched for using CTRL Z (search up) and CTRL X 

(search down), and replaced with the : string using CTRL C (search 

and replace up) and CTRL V (search and replace down). For a more 

detailed explanation of the String Search CTRL commands see 
page 000. 

$$$ The Character Buffer 

• 0 

The character buffer is a 256 byte area used to save 
characters deleted using the DELETE key. Open-apple DELETE 
recovers the characters, placing them at the cursor location. (This 

function is not available on older Apple computers that do not have 

the DELETE key.) 

• • 

$$ Control Character Commands 

* 

• u u • 

Control characters are immediate-response function keys in 
the text edit mode. This means that as soon as they are pressed, 
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the function that they are used for is performed. To execute a 
control key function, first press CTRL, and, while holding it down, 
press the desired alpha key. 

s 

• 

$$$ Cursor Movement Keys 
CTRL S - Tab Left 

• 9 w 

The cursor moves to the left until a tab stop is found in the tab 
line, or until it comes to the left edge of the page. Open-Apple TAB 
can also be used to tab left. 

TAB (CTRL-1) - Tab Right 

The Cursor moves to the right until a tab stop or print stop is 
found in the tab line, or until the end of the line is reached. The 
TAB key is equivalent to CTRL-1, which can be used on older 
Apples that do not have a TAB key. 

CTRL E - End of Line 

The cursor is moved to the first space past the last character in 
the line. If the character in column eighty is not a blank, the cursor is 
placed in column eighty. This allows easy continuation of a line. If a 
print stop is coded in the tab line, the cursor will not be placed past 
the print stop. 

CTRL W - Start of Line 

The cursor is moved to the beginning of the line that it is on. 

• • 

CTRL T - Top Home 

The cursor is moved to the first column in the top line of the 
current display window. 

% 

CTRL B - Bottom Home 

The cursor is moved to the first column in the bottom line of 
the current display window. 
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CTRL F - First Line 

• • " » 

The display window is moved to the first twenty-two lines of 

the current text edit buffer. The cursor is then placed in column one 
of line one. 

W m 9 m 

• m * m % 

4 4 

CTRL L - Last Line 

4 

* 

All blank lines are removed from the end of the current text 

edit buffer. Next, the display window is moved to the last 
twenty-one lines in the text edit buffer, placing a blank line at the 
end of the file (and thus at the bottom of the display window). 
Finally, the cursor is moved to column one of the bottom line of the 
display window. 

This command is generally used to jump to the end of a file to 
add new text to a partially completed text file. 

$$$ String Search Commands 

The following commands are used to locate any sequence of 
characters in a file. The string that is being searched for should 
have already been entered using the ESC command *, although a 
chance is given to enter the string if one is not found. If search and 
replace commands are used, the ESC : string is used as the replace 
string. 

CTRL Z - Search Up 

A search for the current string is made. The search starts at 
the line immediately above the line occupied by the cursor, and 
continues up until the string is found or until the beginning of the 
file is reached. If the string is found, the display window is moved so 
that the line with the string is at the top of the page, then the cursor 
is moved to the beginning of the string, if the string is not found, 
the message 

*** String Not Found *** 

* 

is printed just below the display window. If there was no string in the 
string buffer, a string is requested before the search starts. 
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CTRL X - Search Down 

* 

% 

This command is identical to the search up command (CTRL Z) 
except that the search is conducted from the first line following the 
cursor to the end of the file. 

% • 

CTRL C - Search and Replace Up 

w 9 

m % 

The search and replace sequence begins with the question 

• t • V • 

Auto or Manual (A or M)? 

If a response of A is given, a string search up is conducted for the * 
string. If the string is found, it is replaced with the : string; if it is not 
found the process ends with the cursor in its original position. After 
replacing a string, another search is conducted until all occurrences 
of the string have been found and replaced. 

If a response of M is given, each successful search is followed 
with the question 

Replace? 

Typing N continues the search without replacing the string. Typing 
Y replaces the string, then continues the search. Typing Q 
terminates the search without replacing the string. 

If a search and replace is started with no string in the : buffer, 
the message 


Replace with null string? 

appears on the prompt line. Replying with N allows entry of the : 
string, while Y results in a search and delete. 

• £ 

Only the last occurrence of a string in a given line will be 
replaced. 
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CTRL V - Search and Replace Down 

s m 

This is identical to search and replace up, except that the 
string search is conducted down in the file. 

$$$ Miscellaneous Commands 

CTRL D - Delete to End of Line 

% 

* mm 

This command clears the line occupied by the cursor from the 
cursors position to the end of the line. 

CTRL G - Toggle Display 

If no lower-case adapter is available, the text editor defaults to 
displaying upper-case letters only. Typing CTRL G switches the 
display mode, causing upper-case letters to be displayed as inverse 

characters, and lower-case letters to be displayed as normal capital 
letters. 

CTRL O - Shift Lock 

This is a software equivalent of the CAPS LOCK key found on 
new Apples. It is only needed by those using an Apple ][+. 

When the text edit mode is entered, the keyboard responds 
with capital letters. Using CTRL O switches the response to 
lowercase letters. In the lowercase mode, the shift key modification 
will give capital letters. A second CTRL O gives shift lock again. 
Note that the assembler demands capital letters. The lowercase 
mode is generally used only for output statements. Lowercase 
letters will not cause problems if they are used in comments. 

CTRL P - Pop Lines 

• • * 

All lines in the copy buffer are popped onto the screen 
beginning at the cursor position. Old lines are moved down to make 
room for the new lines. The copy buffer is unchanged. 
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CTRL Q - Quit 

9 m 

9 

This command exits the text editor, returning to the monitor. 
CTRL R - Remove Blank Lines 

All blank lines, beginning with the line occupied by the cursor 
and continuing to the first non-blank line, are deleted from the text 

edit window and the text edit buffer. 

• • • 

$$ Escape Commands 

When the ESC key is pressed, the message 

• * * 

»> ESCAPE «< 

• » * 

• • • • • ^ 

appears on the bottom line of the screen, two lines below the edit 
window. This indicates that the editor has entered the escape 
mode. The message remains there until the escape mode is exited 
by pressing any key that does not correspond to an escape mode 
command, such as RETURN or the space bar. 

Escape mode commands are executed as soon as the key 
corresponding to the command is pressed. After most commands, 
the editor remains in the escape mode after the command is 
executed. String entry commands return to the edit mode after the 
string has been entered. 

• • 

$$$ The Repeat Feature 

Escape commands may be repeated by setting a repeat 
count . This is done by typing a decimal number, followed by any 

valid ESC command. The command is then executed the indicated 

• • 

number of times, to a maximum of 255. 

An example would be the insertion of fifty lines at the current 
cursor location. First, the escape mode is entered by pressing 
ESC. Then the number 50 is typed (there is no screen echoing of 
repeat counts). Next, press the command key corresponding to 
inserting a line (B). Fifty blank lines are now placed in the text edit 
buffer, several of which can be seen in the edit window. Finally, the 
edit mode is re-entered by pressing the ESC key. 



If a number larger than 255 is entered, or if the ? character is 
used, the next command will be executed as many times as 
possible. For commands like inserting a line, which have no 
theoretical limit on the number of times they can be performed, 256 
is used. 

, * * * ^ • 

$$$ Cursor Movement Commands 

• • , t * 6 • % • 

I - Move Up 

• • • • • 

Moves the cursor up one line. The screen is scrolled up to 
accommodate moving the cursor if the cursor was on the top line of 
the text window. If the cursor was on the first line in the file, the 
command is ignored. 

J - Move Left 

The cursor is moved left one column. If it started in column 
one, the command is ignored. 

K - Move Right 

The cursor is moved one character to the right. If it starts in 
column eighty or on a print stop, the command is ignored. 

M - Move Down 

Moves the cursor down one line, scrolling the page if 
necessary. Blank lines are added at the end of the file if they are 
needed. 

$$$ Text Edit Window Control 

4 * • • • 

*•" ' • a •• 

E - Scroll Up One Line 

m • 4 

Scrolls the current text window page up one line, placing the 
cursor on the next line up. The cursor remains in the same relative 
position on the screen that it started at. 
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C - Scroll Down One Line 

i * . « . 

Scrolls the current text window down one line, placing the 

cursor on the next line down. The cursor remains in the same 

. . • 

relative position on the screen that it started at. 

* » * • » 

• • * • 

W - Scroll Up One Page 

* • * 

Moves the edit window to the twenty-two lines immediately 
before the lines in the current display window. The cursor is left in 
the same position in the window that it started. 

If the beginning of the file is less than twenty-two lines up, the 
edit window is moved to the beginning of the file. 

X - Scroll Down One Page 

This is the same as scrolling up one page, except that the 
page after the one in the window is displayed. 

$$$ Insert and Delete 

B - Insert Line 

Inserts a blank line at the position of the cursor, moving old 
lines down to make room for the new one. 

Y - Delete Line 

• • • 

The line that the cursor is on is deleted, moving the following 
lines up to fill the space. 

H - Insert Character 

• • • 

Inserts a space at the position of the cursor, moving the rest of 
the line to the right to make room. Characters scrolled off of the 
right side of the line are lost. 
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G - Delete Character 

* * . _ - - * - 

m • m ® " 9 

% 

The character under the cursor is deleted, moving the rest of 

the line to the left to fill the gap. A blank is inserted at the end of the 
line. 

$$$ Non-keyboard Characters 

9 m 

% * 9 • 

For older computers which do not have all of the ASCII 

characters on the keyboard, the missing characters may be entered 

in the escape mode using the following translation characters The 

lowercase mode must be active. (See CTRL-O.) Most of these 

special characters will be displayed correctly only if a lowercase 
adapter is installed. 

To Get... Use a... 




+ 

i 


{ 

} 


( 

) 


[ 

] 

@ 

A 

$$$ Buffer Commands 


< 

> 




















* Enter Search String 

• m % 

This command puts the cursor just below the current display 
window, following an * prompt. Any string valid in the edit mode may 
then be entered, finishing with a RETURN. This enters the string 
into the search string buffer for use by the search commands (see 
CTRL X and CTRL Z above). If RETURN is entered immediately, any 

existing search string is cleared from the buffer. 

• _ _ _ _ • 

While entering the string, four special characters are 
recognized. They are the left and right arrows, RETURN, and CTRL 
O. The left and right arrows move the cursor left and right, erasing 
or entering the characters they pass into the input buffer. 
Characters erased from the input buffer using the left arrow remain 
on the screen, as they do when the monitor is in use. The RETURN 
key ends the string at the current cursor location. CTRL O is the 
shift lock toggle, as in the text edit mode. The shift key modification 
is still supported. Although the display mode cannot be changed 
while entering a string, the display mode set in the text editor is 
used when displaying the string. Embedded, leading and trailing 
blanks are allowed, and are significant. 

: Enter Replacement String 

This is the same as entering a search string, except that the 
resulting string is used to replace the search string using the search 
and replace commands. 

O - Delete Lines to Buffer 

The line containing the cursor is moved to the copy buffer, 
replacing the previous contents of the buffer. The line is then 
deleted. The line deleted may then be placed elsewhere using the 
pop command (see CTRL P.) 

Using the repeat count allows more than one line to be placed 
in the copy buffer, beginning with the line occupied by the cursor. 
The lines copied are then deleted from the text edit file. A maximum 
of ninety-nine lines may be deleted at one time. 
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The copy buffer is fairly permanent. An assembly, execution 
of a program (using BRUN ) or using the COPY command will erase 
it. So long as the user remains in the monitor and text editor only, 
and does not use the monitor COPY command, it will not change. 

m W . • 

m % • 

P - Copy Lines to Buffer 

• * m m % 

• • 

This is the same as the delete lines to buffer command above, 
except that the lines moved to the copy buffer are not deleted. This 
allows copying sections of code to other locations. 

F - Display Memory Used 

• _ • _ • • • 

This displays the current percentage of the text buffer in use. 

• • • _ « 

• • . 

DELETE - Delete a Character to the Buffer 

The character to the left of the cursor is deleted from the 

screen and placed in the character buffer. The cursor and all 

characters from the cursor to the end of the line are shifted one 

column to the left to fill in the vacated space. A blank is placed at the 
end of the line. 

If more than 256 characters are placed in the buffer, the oldest 
characters are lost. 

• • 

This command is only available on an Apple //e or Apple //c. 

• • • • • 

• . • 

Open-Apple DELETE - Insert a Character from the Buffer 

The last character deleted to the character buffer is removed 
from that buffer and placed at the current cursor location. 
Characters from that position to the end of the line, including the 
cursor, are shifted one column to the right to make room for the new 

character. Characters shifted off of the end of the line are lost. 

• * • m 
• ^ • 

» - . _ • . • . 

If more characters are inserted from the buffer than were put 
in, blanks are inserted. 

• • 

This command is only available on an Apple lie or Apple //c. 

» • • * • m • 

mm m • * * 

34 



Chapter Four ~ Running the Assembler 


$$ Assembler Overview 

The Assembler reference section is divided into three 
chapters for clarity. Chapter IV describes the assembly process, 
Chapter V covers the 6502 assembly language instruction syntax 
and Chapter VI describes the syntax and function of assembler 
directives. 

• ft 

$$ Introduction 

The assembler is the heart of the ORCA/EZ assembly 
language development system. It is invoked from the monitor by 
using the ASSEMBLE or RUN commands. It then assembles the 
source file in the text edit buffer. 

The assembly is not limited to the source file in memory. For 
large programs, the file in memory is simply the first of many source 
files. The file in memory chains to or includes other source files 
using APPEND and COPY assembler directives. The needed 
source files are brought into memory automatically. After the 
assembly is finished, the original source file is loaded back into the 
text edit buffer. 

$$$ The SYSFIRST Disk File 

When the assembler encounters the first COPY or APPEND 
directive, it saves the file in memory on the last disk accessed, 

under the name SYSFIRST. This is done to presen/e the original file 

% • 

for reloading before control is returned to the monitor. The name 
SYSFIRST is thus a reserved file name for the use of the assembler, 
and any other file of that name is in danger of being destroyed by 

the assembly process. 

• . 

Normally, the SYSFIRST file is deleted at the end of the 
assembly process. If the RESET key was hit during an assembly, or 
if a terminal assembly error was encountered, this file may not be 
deleted. If it is left on the disk by the assembler, it can be deleted 

manually. Otherwise, it will be deleted after the next normal 

* 

assembly. 
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$$$ Disk Access 

m 9 

The assembler does not need to be given slot or drive 
parameters for any of its operations. It searches all active drives for a 
given volume number. If the needed volume is not located, the 
assembler will print a message like 

Place Volume 67 Online 

and then pause and wait for a key to be pressed. After a key is 
pressed, it repeats the search process. 

4 * ■ _ • 

V • 

All active disk drives should contain a disk during assembly. If 
they do not, the assembler may try to access the drive during a 
search for a volume, generating a disk I/O error, which is a terminal 
error. It is important that each disk have a different volume number 
or the assembler may write over sectors on the wrong disk. Volume 

numbers can be changed using the monitor VOLUME command. 

# • 

$$ The Assembly Process 
$$$ Pass Zero 

The assembler begins by quickly scanning the entire source 
file for global labels, building a global symbol table as it goes. If a 
terminal error occurs during this process, the assembler will return 
control to the text editor, which will place the line that caused the 
error at the top of the edit screen. 

$$$ Pass One 

The source file is assembled one subroutine (program 

segment) at a time. Each subroutine goes through two passes. 

The first pass resolves local labels. When pass one encounters an 

END directive or the end of the source file, it passes control to pass 
two. 
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$$$ Pass Two 

" % 

When pass two is called, it starts with the same line that pass 
one started at. Pass two then assembles each line for the last time. 

Pass zero has resolved global labels, and pass one has resolved 

the local labels, so pass two can produce both the program and the 

assembly listing. 

9 

W 

9 m 

When pass two finishes with a subroutine, it prints the local 

symbol table. It then passes control back to pass one to begin the 
next subroutine. If there are no more subroutines to assemble, 

control, is returned to the operating system. 

$$$ Controlling the Speed 

This assembler has a throttle: paddle zero can be used to slow 
down the assembly listing as pass two prints it. This is desirable if 
only the screen output is being scanned, rather than using the 
PRINTER ON directive to create an assembly listing on a printer. To 
slow down the listing, turn paddle zero counterclockwise. Speed 
can be recovered by turning the paddle clockwise. 

$$$ Error Detection 

Unless this feature is disabled using the monitor OPTIONS 
command, each time the assembler encounters an error, it will beep 
the speaker and stop to wait for a keypress. Any key but the ESC 
key will cause the assembler to continue. The ESC key has the 
same effect as a terminal error, re-entering the editor. 

$$$ Stopping the Listing 

At any time during pass two, the assembly may be stopped by 
pressing any keyboard character. Note that the assembly will stop 
only if a line or symbol table is being printed, and not for the pass 
headings (which lists the subroutine name). This provides a quick 
way to scan for errors; by turning off the listing and symbol table 
(using the LIST OFF and SYMBOL OFF directives), only the output 
of error lines can stop the listing. Pressing a key at the beginning of 
the assembly will then stop the listing at the next error. Since the 
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pass headings are still displayed for each subroutine, the 

subroutine which contains the error may be determined. 

w 

To restart the listing, any key but ESC may be pressed. The 

listing will continue until another key is pressed to stop it again. If 
the listing has been stopped, and ESC is pressed, the text editor is 

entered. The line that would have been printed next will be at the 
top of the edit page, with the cursor at the beginning of that line. 

$$$ Terminal Errors 

If the assembler encounters a terminal error (such as a symbol 
table overflow), it prints the error message and waits for a keypress, 
then it returns control to the operating system. The operating 
system then enters the text editor automatically, and places the line 

that caused the error at the top of the text edit window. This allows 
identification of the offending line, even if pass two had not started 
and no listing had been produced yet. 

A list of terminal errors is contained in Appendix A. 

$$$ The RESET Key 

If the RESET key is pressed during an assembly, control is 
returned to the operating system. The operating system enters the 
text editor as if a terminal error has occurred. The editor is entered, 
and the current line is displayed, showing where the assembly 
process had been interrupted. 

$$ The Assembly Listing 

$$$ Screen Listings 

A listing is produced on the screen during pass two, unless 
the assembler is instructed not to list the output. Each subroutine 
begins with two messages, announcing the subroutine name and 
pass. The listing continues with the assembled code. 

S m 

Each output line has four parts. The first part is the address in 
memory that the current line will be located after a BLOAD or BRUN 
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command has been used. Next comes a sequence ot up to three 
bytes, printed in hexadecimal. This is the code that was generated 
by the assembler. Finally, the source statement that generated the 
code is printed. 

If there are more characters in the line than will fit on the 
screen, the line is continued on the next line of the screen. Spaces 
are automatically generated to begin output under the first character 
of the source statement from the line above. 

T • • 

If an error is detected in the source statement, it is printed on 
the next line. All error messages are text messages, not simply error 
numbers. The errors are explained in Appendix A. 

$$$ Printer Listings 

If the PRINTER ON directive is issued in a source file, 
subsequent lines are sent to the printer. The assembler expects an 
eighty column printer with an interface card in slot one. 

Printed listings are generally the same as listings to the 
screen, except that each line has a line number and the messages 
announcing the start of various passes are not printed. The 
assembler assumes sixty-six lines per page, and prints on sixty of 
those lines. Six lines are skipped after each block of sixty lines to 
allow for page breaks. After printing the symbol tables for a 
subroutine, the assembler skips to the top of the next page. 

As mentioned before, each line sent to the printer starts with a 
line number. This is a four digit decimal number, starting at 0001 on 
the first line and incrementing for each source line. The line number 
is incremented even if the output line is not printed. Thus, even if 
printing is turned off for part of the assembly, it is still possible to 

know exactly how many lines the assembler has processed. 

• • • 
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Chapter Five - Assembly Language Syntax 

s • • 

m % m 

* • • • 

* * 

» • " • * * 

* • * • • s 

$$ Introduction 

• • • • ' % " 

• 9 ■ 

The purpose of this chapter is to provide information 
concerning the format of assembly language lines under ORCA/EZ. 

* m • 

9 

$$ Types of Source Statements 

' • * _ t 

• • • • * 

There are three types of lines in an assembly language source 
listing. The first is the comment line. Its purpose is to allow text to be 

V * ** 

inserted in the source listing in order to document the program. 
Two other line types are instructions and assembler directives. 
They are coded in the same way, and are described together here. 

• I • * • • 

Assembler source file lines may be up to eighty columns long, 
numbered from one to eighty. Since most printers use eighty 
columns, assembler source lines should generally be restricted to 
fifty-nine columns, as twenty-one columns must be allowed for 
information printed by the assembler. If this is not done, printed 

assembler output will wrap around to the next line. Aside from 

• • 

making the listing impossible to read, it also causes the assembler to 
miscount the number of lines of printed output, misplacing future 
page breaks. 

* 9 • 

$$ Comment Lines 

There are four forms of lines which are regarded as comment 
lines by the assembler. They are described by use. 

The Blank Line 

• • • • 

Any blank line is treated as a comment line. Blank lines are 
often used to logically separate sections of code. 
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The Characters *, and ! 

m m * m 

m • m % 

Any line with an asterisk (*), semicolon (;), or exclamation mark 
(!) in column one is treated as a comment. Any text in the line is 
ignored. It will be printed when the source listing is generated by 
the assembler. 

$$$ Examples of Comment Lines 

The following examples illustrate the rules outlined above. 


! THIS SECTION SHOWS THE VARIOUS VALID 
! WAYS TO CODE COMMENTS 

* NOTE THE BLANK LINES ABOVE, WHICH ARE 

* ALSO COMMENT LINES 

;THIS CHARACTER CAN BE USED FOR 
; COMMENT LINES THAT YOU WANT TO BE LESS 
; OBTRUSIVE THAN LINES WITH A * 

! THE FOLLOWING COMMENTS ARE NOT VALID 

* THE COMMENT DOES NOT START IN COLUMN 

ONE 

THERE IS NO 
COMMENT 
CHARACTER 
IN COLUMN 
ONE 

: THE LINE STARTS WITH AN INVALID 

: CHARACTER 

• • 

• • 

$$ Coding Instructions and Assembler Directives 


For the purpose of coding instructions and assembler 
directives, the source line is divided into four fields. The default 
location of these fields is illustrated below: 


field label 

* 

opcode 

operand 

* 

comment 

column number 1 

8 

14 

21 

* 

* 
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ORCA/EZ is a free form assembler. This means that the 
starting columns of the fields named above is optional. They are 
treated as described above to facilitate discussion of the various 
parts of the line, and to facilitate standardization in code. 

. * • ^ " * 4 

t * • 

The fields shown above reflect the default tab settings, and 
are set up for six-character labels. Actually, the assembler can 
handle labels up to ten characters long. If labels longer than six 
characters are used on a regular basis, the tab stops may be 
shifted to accommodate the longer fields. The six-character limit is 
basically a matter of style, so that the source code will fit easily onto 
a forty column screen. 

Each line can contain information in all of these fields. Blank 

* _ • • 

lines and comment lines aside, each line must have an operation 
code as a minimum. The nature of each of the fields are described 
specifically below. 


$$$ The Label 


Each line may begin with a one-to-ten character label. This 
label is processed by the assembler and stored in the symbol table 
along with the current location counter. (The address at which the 
labeled instruction will be stored.) The label may then be 
referenced in the operand field of other instructions, and is 
equivalent to using the address of the the labeled instruction. 

• 

Labels must start in column one and begin with an alphabetic 
character. Subsequent characters may be any alphabetic or 

numeric character. Embedded blanks are not allowed. 

• • ♦ * * 

It is generally not advisable to use the letter "A" as a label, 
since the assembler may confuse use of the label with the 
accumulator addressing mode. 

s 

The following lines contain examples of legal labels: 


LABEL LDA #4 
C STA 14 
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The next set of lines contain illegal labels. The comment field 

indicates why the label is not valid. 

• • m % 

LABELTOOLONG LDA #3 THE LABEL HAS MORE 
! THAN 1 0 CHARACTERS 


1000 

STA 

14 

THE LABEL DOES NOT START 

* 

1 

« 



WITH AN ALPHABETIC 

I 

ft 

. 


CHARACTER 

AB$ 

LDA 

#7 

THE LABEL HAS A NON 

i 

• 

. • 


ALPHANUMERIC CHARACTER 

LABEL 

STA 

15 

THE LABEL DOES NOT START IN 

\ 

• 

• 



COLUMN 1 


$$$ The Operation Code 

• * * • • 

The operation code field is reserved for assembly language 

instructions or assembler directives. At least one space must be left 
between the label and the operation code. If no label is coded, the 
operation code can begin in any column from two to twenty. 
Normally, the operation code begins in column eight. The tab line 
has a stop tab in this column for convenient placement. 

Operation codes for assembly-language instructions are 
always three character alphabetic strings. These are listed in 
Chapter VII. Assembler directives vary in length from two to five 
characters. The operation codes for assembler directives are listed 
in Chapter VI. 

$$$ The Operand Field 

The operand is the information that the instruction uses to 
perform its function. There must be at least one space between the 
operation code and operand. The operand normally starts in 
column fourteen; a tab stop is provided to allow easy movement to 
that location. Formats for the operand field vary a great deal. Refer 
to the descriptions of the individual operation codes for the format 
to be used in forming their operand fields. 
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$$$ Coding Operands for Instructions 

m * • * 

% 

in the table that follows, ABS indicates a two byte absolute 
address. The address may be represented in the form of a label, a 
number, or an expression involving several terms and arithmetic 
operations, so long as a value from $0000 to $FFFF results. 
Similarly, ZP is used to indicate a one byte (zero page) address. 


Addressing Mode 

w 

Operand Format 

Implied 

none needed 

Immediate 

#ZP 

• 0 

Absolute 

#>ABS 

#<ABS 

#ABS 

/ABS 

ABS 

Zero Page 

ZP 

Relative 

ABS 

Absolute Indexed 

ABS.X 

Zero Page Indexed 

ABS.Y 

ZP,X 

Indirect 

ZP,Y 

(ABS) 

Indexed Indirect 

(ZP) 

(ZP,X) 

Indirect Indexed 

(ZP),Y 

Accumulator 

A 


Operands for the immediate addressing mode must be 
resolved to a single byte. The use of the greater than sign (>) after 
the pound sign (#), or the slash (/) by itself, allows selection of the 
high-order (most significant) byte of a two byte absolute address. 
The low-order byte is specified by using the less than sign (<) after 
the pound sign, or is selected by default if # is used with a sixteen 
bit value. If the absolute address is an expression, the address is 
first resolved into a single two byte number, and then a byte is 
selected. For example, each of the following instructions result in 
loading the accumulator with a hexadecimal $E4: 


45 



LDA 

#$E4 

hex E4 

LDA 

#<$AAE4 

low-order byte entered 

LDA 

#$AAE4 

low-order byte entered 

LDA 

/$E4AA 

high-order byte entered 

LDA 

#>$E4AA 

high-order byte entered 

LDA 

#<$AAE0+4 

4 is added to low-order byte 

LDA 

o 

o 

+ 

< 

< 

o 

LLJ 

V* 

A 

4* 

4 is added to high-order byte 


A zero page address can be coded with any instruction that 
allows an absolute address. If the instruction allows zero page 
addressing, the assembler automatically assembles the instruction 
that way. If zero page addressing is not allowed, the assembler 
resolves the instruction as an absolute address with a zero high 
byte. 

Note that although indexing with the X and Y registers are 
coded similarly, not every instruction allows both registers to be 
used as indexes. 

$$$ Coding Addresses 

As mentioned before, the absolute and zero page addresses 
need not be limited to a single constant; it may be coded as an 
expression. Likewise, there are a number of ways to code a 
number. Any of them may be used. Coding follows the rules 
detailed below. 

Labels 

When a label appears in the address field, it is resolved into a 
two byte hexadecimal value. In the case of instructions and most 
assembler directives, this location is the location of an instruction or 
data area defined within the program. Exceptions are labels defined 
via EQU and GEQU; see Chapter VI. 
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If a zero page label is defined using the GEQU directive, it 
becomes global for the assembly. This means that any subroutine 
can access the label, as if the label was defined using an EQU 
directive in every subroutine. This allows the assembler to 
automatically examine the label and determine that it is zero page. 

The assembler can also handle zero page labels automatically if they 

% • , * • * •• 

are defined locally within the subroutine via EQU. 

The program counter symbol (*) 

• • • m • 

The asterisk (*) may be used as a special label to stand for the 
current value of the location counter. It is syntactically equivalent to 
an absolute label defined on the current line. For example, the 
following two instructions give identical results: 

t * • • • • 

LB1 LDA LB1 

LDA * 

Decimal Numbers 

Base ten integer numbers must be in the range -32768 to 
65535. The number terminates with the first non-numeric 
character. Embedded blanks are not allowed. 

Note that numbers greater than 32767 have a one in the most 
significant bit position. Signed arithmetic operations consider all 
numbers with the most significant bit set to be negative. For this 
reason, it is a good idea to consider the range as -32768 to 32767 
for all math operations. 

Because of the dual interpretation of numbers with the high 
bit set either as negative numbers or as positive numbers greater 
than 32767, add and subtract operations in the operand never 
result in numeric errors from overflows. Thus, 

64000+2000=66000 

would normally be considered an overflow, since 65535 is the 
largest positive integer. But this could be interpreted just as easily 
as 
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-1536+2000=464 

» " 

■ / * . • 

• ® w 

which is a valid operation. 

s 

• * 0 

The following are valid decimal numbers: 

1 

-1 

32000 

-32700 

64000 

* 0 ^ 

The following are invalid decimal numbers. The reason the 
number is invalid is stated to the right of the number. 

-32 7000 the number has an embedded blank 

-33000 -32767 is the smallest valid number 

66000 65535 is the largest number allowed 

3.14 real numbers are not allowed 

Hexadecimal Numbers 

Hexadecimal numbers are coded with a character in the 
first position, followed by zero to four hexadecimal digits. A 
hexadecimal digit is a numeric character or a letter from A to F. The 
number terminates with the first non-hexadecimal character. 

The following numbers are all valid hexadecimal constants. 
Their decimal equivalents are shown on the right. 

$ 0 


$0 

0 

$FFFF 

-1 or 65535 

$89AB 

-30293 or 35243 

-$4 

-4 or 65532 
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The following are invalid hexadecimal numbers, for the 
reasons indicated. 

G is not a hexadecimal digit 
the number has more than 4 digits 
the number has embedded blanks 
the number is not preceded by a $ 

character 


Octal Numbers 

Octal numbers are coded with an at sign (@) followed by any 
number of octal digits. The octal digits are 0-7. Only the last sixteen 

bits are used. 

The following examples are valid octal constants. The 
hexadecimal value they represent is shown to the right of the octal 

constant. 

@ $0 

@7 $7 

@777777 $FFFF 

@7070707 $71 C7 

The following are invalid octal constants: 

@8 8 is not an octal digit 

@77 77 the number contains embedded blanks 

Binary Numbers 

The number begins with a "%" character, followed by any 
number of binary digits. The binary digits are zero and one. The 
number terminates with the first non-binary number. Only the last 

sixteen bits are used. 

s 

^ I 

The following are valid binary constants. The equivalent 
hexadecimal number is shown in the second column. 


$DEFG 
$12345 
$12 34 
FFFF 
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% $0 

%01010101 $0055 

-%1 $FFFF 

%10101010101010101 $5555 

These are invalid binary constants, for the reasons indicated. 

%2 2 is not a binary digit 

%1 1 the number has embedded blanks 


Character Constants 

A character constant is one or more characters enclosed in 
single quote marks ('). If only one character is coded, the high byte 
is set to zero. If more than two characters are coded, only the first 
two are used. If a single quote is desired, two single quotes must 
be coded. The value of a character is the equivalent ASCII code 
with the high-order bit set to one (unless the MSB directive is used 
to turn the most significant bit off) . 

The following examples of character constants give the 

constant in column one, the coded character constant in the 

second column and the hexadecimal value they represent in the 
last column. 


A 'A' 

$00C1 

• ffW 

$00AC 

r i" 

$B1AC 

(blank) 

$00A0 

ABC 'ABC' 

$C1C2 

• 

The following are invalid character constants 


no closing ’ 

A not enclosed in ' characters 

Arithmetic Operations 

Any number may be preceded by a + or -, so long as this does 
not place two arithmetic operators (+, *, /) in a row. Add, subtract, 
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multiply and divide operations may also be performed. They are 
written in algebraic format. A sequence of constants and arithmetic 
operators is referred to as an arithmetic expression, or simply as an 
expression. 

Parenthesis may be used to modify the order in which 
operations are performed. There is no fixed limit to the number of 
levels of parenthesis that can be evaluated; if an expression 
becomes too complex, an error message will result. It is safe to 
assume that four to five levels of parentheses may be evaluated. 
An absolute or zero page operand cannot start with a parentheses, 
since the assembler would confuse the parentheses with the 
indirect addressing mode. 


Resolution of operations proceeds in the following order: 

1 Resolve expressions in parenthesis 

2 Perform two byte signed integer multiplies and divides 

proceeding from left to right 

3 Perform additions and subtractions 


The following expressions demonstrate the rules outlined 
above. The value of the expression is shown at the right. 


-1 

$FFFF 

2*(3+$5) 

$0010 

+(4+$5)/2 

$0004 

2*(3+4*(5+6)) 

$005 E 


-1 or 65535 
16 
4 
94 


Invalid expressions are illustrated below. 

6 

(3+$5)/2 the expression starts with a ( 

4*(2+3 miss-matched parenthesis 

4*-5 two arithmetic operators in a row 

• • 

$$$ The Comment Field 

In-line comments can start in any column past the first space 
after the operand field. If an instruction does not require an 
operand field, they can start in any column after the first space past 
the operation. Comments generally start in column twenty-one. A 
tab stop is provided in that column for easy movement. 




Chapter Six — Assembler Directives 

mm 1 

$$ Introduction 

An instruction is a line that tells the assembler how to build a 
machine language command for the microprocessor. An assembler 
directive tells the assembler itself to take some action. In some 
cases, this may involve reserving memory or setting up data tables 
for use by the program. Other directives define the beginning and 
end of subroutines, assign values to labels, and perform various 
housekeeping functions. 

The assembler directives in this section are grouped together 
by function. Below is a list of these directives in the order in which 

they can be found. 

Assembler Directives 


Program Control Directives 
START 
END 
DATA 
ENTRY 
USING 


start subroutine 
end program segment 
define data area 
define entry point 
using data area 



Space Allocation Directives 
DS 
DC 

I 

II 
A 
H 
B 

C 

PAGE 

ORG 


declare storage 
declare constant 
integer 

one byte integer 
address 

hexadecimal constant 
binary constant 
character string 
skip to page boundary 
origin 


56 


Immediate Operand Directives 


MERR 

EQU 

GEQU 


maximum error level 

equate 

global equate 






DOS Control Directives 
APPEND 
COPY 
KEEP 


append a file 
copy a file 

keep object module 
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Control Directives 
LISTON 
SYMBOL ON 
ERROR ON 
EXPAND OFF 
PRINTER OFF 
MSB ON 


(Default Settings) 61 

list output 
print symbol tables 
print errors 

expand DC statements 

send output to printer 

set the most significant bit of character 


Miscellaneous Directives (Default Settings) 62 

TITLE print header 

EJECT eject the page 

(Default Settings) 63 

enable 65C02 chip 
enable Rockwell version of 65C02 

$$ Assembler Directives 


65C02 Directives 
65C02 ON 
ROCK ON 


Except for the operand field, an assembler directive is coded 
in the same way as an instruction. The operand field is used to tell 
the assembler directive what to do. Since there are a variety of 
assembler directives, there are a variety of types of operands. The 
format of the operand is described with the directive. 

• m • 

$$$ Program Control Directives 

» * * • 

Program control assembler directives are used to define 
subroutines, data areas, and to set alternate entry points. Except 
for the USING statement, no operand field is necessary. 

• • • m s 

START - Start Subroutine 

“ m • mm* 

• 9 ' » . 

Each program segment (that is, both main programs and 

subroutines), must begin with a START directive. Labels defined 

inside a program segment are local labels, and are valid only inside 
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the program segment that defined them. There is nothing wrong, 

m « 

for example, with having a local label called LOOP in every program 
segment in a source file. 

s 

w m m • 

Every START directive must have a label. This becomes a 
global label. Therefore, every program segment in the program is 
able to reference that subroutine, allowing it to be called or jumped 
to from any program segment (including itself). 

9 

END - End Program Segment 

The END directive is the last directive in a program segment or 
data area. It directs the assembler to print the local symbol table and 
delete the local labels from the symbol table. 

DATA - Define Data Area 

The DATA directive is used instead of the START directive to 
define a special form of program segment which contains no 
instructions. Its purpose is to set up data tables which several 
subroutines can access. Its labels become local labels for any 
subroutine which issues a USING directive for the data segment. 
The name of the data segment is the label field of the DATA 
statement, and is global. No more than eight data segments may be 
defined in any one program. 

ENTRY - Define Entry Point 

• • 

It may be desirable to enter a subroutine someplace other 
than the top of the subroutine. Use of the ENTRY directive allows a 
global label to be defined for that purpose. The label field of the 
ENTRY directive becomes a global label. 

USING - Using Data Area 

• • • s 

This directive should appear in any program segment that 
wants access to a given data area. The operand field contains the 
name of the data area. Labels defined within the subroutine take 
precedence over labels by the same name in data areas. 
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$$$ Space Allocation Directives 

These assembler directives are used to leave empty space 
and to initialize memory with a given value. For those which simply 
leave empty space, the area is filled with zeros, unless the area is 
past all instructions and DC directives contained in a program. In 
that case, the labels generated are valid, but the memory area 
mapped is not actually saved by the assembler, which allows 
programs to take up less space on the disk. 

DS - Declare Storage 

* 

This directive is used to reserve sections of memory for 
program use. The operand is coded the same way as an absolute 
address for an instruction. The operand is resolved into a two byte 
unsigned integer, and that many bytes of memory are reserved. 

TABLE DS 10 STORAGE TABLE 

DC - Declare Constant 

The DC directive is used for every type of program constant 
definition. The operand begins with an optional repeat count, which 
must be in the range one to 255 decimal. The variable being 
defined will be placed in the object file as many times as specified by 
the repeat count. Next comes an identifier describing the value 
type. This is followed by the value itself, enclosed in single quote 
marks. For example, 

LABEL DC 2I'8,9’ 

would place four sixteen bit integers into memory. The resulting 
hexadecimal values would be 

08 00 09 00 08 00 09 00 

. ^ 

The combined length of all values defined by a single DC 
statement cannot exceed 256 bytes. 
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DC Value Types 
I - Integer 

Each number is resolved into a two-byte signed integer, 
stored with the low-order byte first. (This is the order normally 
used by both math routines and the 6502 itself when making 
addresses references.) Multiple numbers may be coded if 
separated by commas. Each number should follow the 
coding rules for an absolute operand. 


Code 


Value 

ABS 

EQU $7000 

• 

DC 

l'438,-26,$FFFF,5/2' 

B6 01 E6 FF FF FF 02 00 

DC 

l'ABS,ABS/1 00' 

00 70 IE 01 

11 - One Byte Integer 

• 


This is the same as I, except the the size of the number is one 
byte. Example: 

Code Value 

DC M*3,-3* 03 FD 

A - Address 

This as actually the same as I, but is more mnemonic for the 
intended use of building tables of addresses. 

H - Hexadecimal Constant 

The string between the single quote marks may contain any 
sequence of hexadecimal digits (0-9 and A-F) and blanks. 
Embedded blanks are removed, and the hexadecimal value is 
stored unchanged. If there are an odd number of digits, the 
last byte is padded on the right with a zero: 
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Code 


Value 


DC H'01 234ABCDEF 01 23 4A BC DE F0 

DC H'1111 2222 3333' 11 11 22 22 33 33 

4 

% 

B - Binary Constant 

The string between the single quote marks can contain any 
sequence of zeroes, ones, and blanks. The blanks are 
removed, and the resulting bit values are stored. If a byte is 
left partially filled, it is padded on the right with zeros: 


Code 

% 

Value 

■ 

DC 

B'01 01 01 10' 

56 

DC 

B'l 111 11111' 

FF 80 


C - Character String 


The string enclosed in single quote marks may contain any 
sequence of keyboard characters. If a single quote mark is 
desired, enter it twice to distinguish it from the end of the 


string: 

• 

Code 

Value 

DC C'NOW IS THE TIME ...' 

• 

CE CF D7 A0 C9 D3 A0 D4 
C8 C5 A0 D4 C9 CD C5 A0 
AE AE AE 

DC C'NOWS THE TIME' 

• 

CE CF D7 A7 D3 A0 D4 C8 
C5 A0 D4 C9 CD C5 


Normally, strings are stored with the high-order bit set, 
allowing them to be displayed directly on the Apple II screen. It 
may equally be desirable to generate true ASCII characters. 
These are obtained by directing the assembler to turn off the 
most significant bit using the EMSBF directive, which is 
described later in this chapter. 
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PAGE - Skip to Page Boundary 

• * v 

This functions as a variable length DS directive. It is used to 
guarantee that the next instruction or data declaration starts on a 
page boundary, filling memory with zeros until such a boundary is 
reached. This is sometimes desirable when programming for 
maximum speed. 

ORG- Origin 

• • • • 

When the assembly process starts, the assembler assumes 
that the program will be located at $800. The EORGF directive can 
be used to change that default and start the program at some other 
location. The location is specified as an absolute address in the 
operand field. 

• • V 

The ORG statement can be used after the first instruction or 
data definition, but it functions a little differently. If the address 
specified in the operand field is past the current location counter, 
enough zero bytes are generated to reach the specified address. 
References to an address before the current location counter are 
not allowed. 

$$$ Immediate Operand Directives 


The following assembler directives all use the same type of 
operand. It is coded exactly like an absolute address. 


MERR - Maximum Error Level 

MERR sets the maximum error level that can be tolerated and 
still allow the assembled program to execute immediately after the 
assembly. The default value is zero. The operand is evaluated to a 
one byte positive integer. 

EQU - Equate 


The label is assigned the value of the operand instead of the 
location counter. This allows a name to be assigned to a numeric 
value, and used instead of the number in fu rther operands. 
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Although the operand may contain labels, these labels must 
already have a value. If they do not, an error is generated. This is 
because the resulting value may be a zero page address. During 
the first pass, the assembler has no way of knowing this, since it 
could not resolve the equate. Instructions are assumed to be 
absolute addresses on the first pass, and two bytes are reserved. 
On the second pass, the equate would be resolved as zero page. 
The addresses would now occupy only one byte, and further 
addressing would be incorrect. 

i * * « * * , 

For the same reason, it is important that equates defining zero 
page addresses be defined before they are used. 

GEQU - Global Equate 

This is identical to the EQU directive, except that the label is 
saved in the global symbol table. All program segments are then 
able to use the label. 


$$$ DOS Control Directives 

•m 

All DOS control directives specify a disk file name in the 
operand. Any valid DOS file name may be coded. If the file name 
has embedded blanks or commas, it must be enclosed in single 
quote marks, and enclosed single quote marks must be doubled. 
An optional volume number can be coded after the name, as in the 
example. 

COPY 'DISK'S FILE ONE',V38 

• • • • 

s 

If the volume number is not coded, it is assumed to be the volume 
number of the last disk accessed. 

APPEND - Append a File 

m * • • 

Processing is transferred to the beginning of the specified 
file. Any lines following the APPEND directive in the original file are 
ignored. 
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COPY - Copy a File 

mm • 9 

■ * * 4 • • 

Processing is transferred to the beginning of the specified 
file. After the entire file is processed, assembly continues with the 
first line after the COPY directive in the original file. A copied file can 

copy another file, up to four levels deep. 

( • • • • * • • 

* 

KEEP - Keep Object Module 

. * * 

• » 

* • • 

• * * * * 

The assembled code is saved on disk as an executable binary 
file. 

$$$ Control Directives 

• • . _ % 

% 

> ft • • ft 

9 * 

The directives in this section are used to set flags that control 
the assembly process. The operand for each of the directives 
consists of either ON or OFF, choosing whether or not the option is 
in effect. The default setting is shown in the definition line. 

LIST ON - List Output 

A listing of the assembler output is sent to the current output 
device. If the listing is turned off, the assembly process speeds up 
by about 1 0%. 

SYMBOL ON - Print Symbol Tables 

An alphabetized listing of all local symbols is printed following 
each END statement. After all processing is complete, global 
symbols are printed. If this option is turned off, assemblies speed 
up slightly. The option can also be used to save paper. 

* m • • 

ERROR ON - Print Errors 

If LIST ON has been specified, errors are always printed, 
regardless of this flag. If LIST OFF has been specified, this flag 
allows error lines to still be printed. If turned off, errors are no longer 
printed, but the number of errors found will still be listed at the end 
of the assembly. 
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EXPAND OFF - Expand DC Directives 

If turned on, this option causes all bytes generated by DC 
statements to be shown in the output listing. Only three bytes of a 
DC statement can be displayed on a line, so the option defaults to 
OFF to save paper and patience. When the option is turned off, 
only the first three bytes of the generated code are shown with the 
output. 

• • • • • * • 

% m • m m • • 

V • _ • 

PRINTER OFF - Send Output to Printer 

If PRINTER ON is coded, output is sent to the printer. A 
printer capable of printing at least eighty columns is expected in slot 
1 . If a printer is not connected, the system will hang. If the option is 
turned off, output is sent to the video display. 

MSB ON - Set the Most Significant Bit of Characters 

Character constants and characters generated by DC 
directives have bit seven set, and so will appear normal when sent 
to the Apple screen. If MSB OFF is coded, characters generated 
have bit seven turned off, and appear normal to ASCII devices. 

$$$ Miscellaneous Directives 

TITLE - Print Header 

The title directive has an optional operand. If coded, it must 
be a legal string, and must be enclosed in single quote marks if it 
contains blanks or starts with a single quote mark. If the string is 
longer than sixty characters, it is truncated to sixty characters. 

If the TITLE directive is used, page numbers will be placed at 
the top of each page sent to the printer. If an operand was coded, 
the string used will be printed at the top of each page, immediately 
after the page number. 

- • * 4 

EJECT - Eject the Page 

When a printer is in use, this directive causes the output to 
skip to the top of the next page. This can be of help in structuring 
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the output of long subroutines. The directive does not effect the 

code sent to the output file in any way. 

* * * 

* * . « 

$$$ 65C02 Directives 

* m m 

9 m 

mm m * 

The 65C02 is an enhanced, pin compatible CMOS 
replacement for the original NMOS 6502. The 65C02 adds eight 
new instructions and eleven new addressing modes for existing 
6502 instructions. The chip is currently available in two versions, 
one from GTE Microcircuits and NCR, and another from Rockwell 
International. The GTE version of the chip is used in the Apple //c, 
and all Apple //e and Apple ][+ computers can be upgraded to the 

chip with no loss of existing software. 

» * _ _ _ % • 

65C02 OFF - Enable 65C02 Instruction Set 

k • i * « • . • f 

To enable the extended instruction set, code the directive 
65C02 ON. The samedirective may be used with the operand of 
OFF to disable the extension, in which case the new instructions 
and addressing modes will be treated as errors. 

ROCK OFF - Enable the Rockwell 65C02 Instruction Set 

The Rockwell version of the 65C02 adds four bit-manipulation 
instructions to the 65C02 instruction set. These instructions are 
RMBx, SMBx, BBRxF and EBBSx. ROCK OFF will disable the 
extension, which will treat the new instructions and addressing 
modes as errors. 

• • • • 

• • • • 

Except in very special cases, these instructions should never 
be used, even if you have deliberately upgraded your Apple to take 
advantage of them. Another new CPU, the 65802, is now available 
for the Apple. It includes all 65C02 instructions from the GTE 
version, but not the four instructions added by Rockwell. 
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Chapter Seven - The 6502 Instruction Set 

• * * • 

$$ 6502 Architecture 

* t 

* * 

The 6502 is an 8 bit general purpose microprocessor chip. It 
is used as the CPU for the Apple II computer. It has six internal 
registers, eleven addressing modes, and fifty-six instructions. 

9 " • 

Only three of the 6502 registers are user registers, and they 
are all eight bit registers. Only one of them, the accumulator or A 
register, can be used for math and logic operations. The other two 
user registers are used primarily as index registers. 

The instruction set is a bit more limited than the Z80 or any of 
the new 16 and 32 bit chips. This is offset somewhat by a very 
comprehensive set of addressing modes. These addressing 
modes, and the lower average number of machine cycles needed 
to execute a typical instruction, make the 6502 one of the faster 8 
bit processors available. In fact, a Z80 must be clocked about twice 
as fast as a 6502 to run the same algorithm in the same time. 

In examining the 6502 instruction set, pay close attention to 
the zero page addressing modes. Careful use of zero page 
memory ($0000 to $00FF) can speed up and shorten a program 
significantly. 

$$$ The Registers 

The Accumulator 

The accumulator is the principal register under user control. It 
is used for math and logical operations and indexed load and store 
commands. 

9 

Indexing Registers 

The X and Y registers are user registers primarily intended for 
indexing. They cannot be used for math or logical operations. 
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Program Counter 

» • 

This is a 1 6 bit register which contains the address of the next 
byte to be processed by the CPU. It is not directly available to the 
user. 

Stack Pointer 

• % 

V 

* • • 

This register points to the next available location on the 

. % * * * 

program stack. It is not generally used directly by the programmer, 
but can be set or read. 

• ® • * • 

Processor Status 

This register contains several flags indicating results of 
previous operations. The status of these flags are usually tested 
using relative branch instructions. The flags are listed in the 
following table, where 0 is the least significant bit position. The 
code given in the last column is the abbreviation for the status bit. 

Flag Code 

Sign N 

Overflow V 

Unused 

Break B 

Decimal D 

Interrupt I 

Zero Z 

Carry C 

If the processor status register is displayed as a binary number, the 
bits would appear in the following order: 

NV-BDIZC 

r , s . 

a • 

* 

$$$ Addressing Modes 
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t 



Implied Addressing 

This addressing mode is used with instructions that operate 
on internal registers. These instructions do not reference an 

address, so the operation code is the only byte required. 

* " • 

Immediate Addressing 

The immediate addressing mode is used by load, compare 
and arithmetic instructions. The byte to be used follows the 
operation code. Instructions using this type of addressing require 

two bytes. 

Absolute Addressing 

Instructions which use absolute addressing require 3 bytes. 
The first byte is the operation code, followed by a 16 bit address. 
The address is a pointer to a toad or store location, or in the case of 
the JMP and JSR instructions, is the address to continue 
processing from. The operation indicated by the operation code is 
performed on the byte pointed to by the absolute address. 

Zero Page Addressing 

This is a specialized form of absolute addressing. It requires 
only two bytes of memory, since the one byte address points to the 
first 256 bytes of memory. A high order leading byte of zero in the 
address is implied. 

Relative Addressing 

Relative addressing requires two bytes, a one byte operand 
and a one byte relative address. Relative addressing is used only 
by conditional branching instructions. If the condition being tested 
for is true, the relative address is added to the address of the 
instruction plus two. Processing continues at the new address (i.e., 
a branch is taken). 

A relative branch has a limited range. The branch can go 
forward 129 bytes or back 126 bytes from the beginning of the 
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instruction. If a conditional branch must be made outside the range 
of the relative branch, the instruction must be replaced by a branch 
around the longer range JMP instruction. 

For example, in order to branch on minus to HERE, if HERE is 
outside of the range of a relative branch instruction, it would be 
necessary to code 

BPL PAST BRANCH ON PLUS 

JMP HERE JUMP TO HERE 

PAST 

• _ • • • 

% " • 

The advantage of relative branch instructions is that they are shorter 
than absolute jumps. 

Absolute Indexed Addressing 

* • 

Instructions which use this form of addressing are three bytes 
long. One of the index registers (X or Y) is used as a displacement 
past the absolute 16 bit address contained in the last two bytes of 
the instruction. Functionally, the value of the register is added to 
the absolute address, and the operation is performed on the new 
location. Both the absolute address and the index register remain 
unchanged by the operation. 

Zero Page Indexed Addressing 

• • 

This is identical to absolute indexed addressing, except that 
the address is now a single byte. The first byte of the address is 
assumed to be zero. The advantage over absolute indexed 
addressing is the shorter length (two bytes) and faster execution 
time of the instruction. In general only the X register can be used as 
an index register. The Y register is used only for the LDX and STX 
instructions. 

• 4 m 

Indirect Addressing 

The only instruction that uses true indirect addressing on the 
6502 is the JMP instruction. The two byte address points to the 
address of the instruction that will be executed next. 
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The 65C02 has a zero page form of indirect addressing 
available for most data manipulation instructions. The one byte 
operand points to the zero page location where the effective 
address is stored. 

* 9 m 

* • • • 

Indexed Indirect Addressing 

V 

• • % 

In this two byte form of addressing, the X register is added to 
the zero page address in the second byte of the instruction. The 
resulting address points to a location in zero page memory. The 
operation is performed on the byte pointed to by the address at the 
zero page location. 

* _ * * 

Indirect Indexed Addressing 

This form of addressing also requires two bytes. The Y 
register is added to the two byte address pointed to by the second 
byte of the instruction. The operation is performed on the location 
pointed to by the resulting address. Since the instruction only uses 
a one byte address, the indirect address must be in zero page 
memory. 

Accumulator 

The accumulator addressing mode is a form of implied 
addressing. The operation is performed on the accumulator. 

$$$ The Stack 

The 6502 is a stack oriented microprocessor. It uses a 256 
byte stack, located in page one of memory ($100 to $1FF). This 
stack is used to store return addresses from interrupts and 
subroutine calls, the processor status at the time of interrupt, and as 
temporary data storage by the programmer. 

• • % 

The stack pointer is an internal register which points to the 

next available location in the stack. When information is stored in 
the stack (referred to as pushing onto the stack), it is placed at the 
location pointed to by the stack pointer. The stack pointer is then 
decremented to point to the next available stack location. 
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Recovery of information from the stack is referred to as pulling 
from the stack. When this occurs, the stack pointer is first 
incremented. It now points to the last byte stored on the stack. The 
byte the the stack pointer points to is loaded. 

All of this happens internally to the processor. Generally, the 
stack should be thought of as a first in, last out storage device. The 
term "stack" comes from thinking of it as a stack of variables. When a 
new one is added, it is stacked on top of the current pile of 

variables. Pulling a variable from the stack removes the top variable. 

• " • • • 

• V 4 

$$$ Memory Organization 

Memory is addressed with a sixteen bit hexadecimal number. 

The normal division of this address into two bytes, along with some 

hardware features of the 6502, have resulted in breaking memory 

down into a series of 256 byte sections called pages. Each page 

consists of all of the memory locations whose addresses have the 
same first byte. 

The 6502 recognizes two special pages, zero page and the 
stack buffer. Zero page, as its name implies, extends from $0000 to 
$00 FF. It should be used for variable storage and pointers, since 
most instructions have a special zero page addressing mode. Zero 

page addressing is faster and requires less memory than 
addressing to other pages. 

• • • • • 

Page one ($0100 to $01 FF) is used for the stack. It should 
only be used by stack instructions. 

* v _ ( 

Pages have one other significance. Crossing a page 

boundary by a branch or indexing instruction generally takes one 

more machine cycle than if a page boundary was not crossed. This 

can be important if time is of the utmost importance. See individual 

instruction descriptions to find out which instructions are effected 
by this. 



$$ Instructions 

. • 

This section contains a detailed description of the instructions 
available on the 6502. The instructions are split up into four main 
categories and are listed in alphabetical order in each category. The 
categories are: 

* 

Implied Operand Instructions 

Branching Instructions 

Load and Store Instructions 

Logical and Arithmetic Instructions 

The description of each instruction is followed by a table which 
lists all addressing modes valid for that instruction. The hexadecimal 
value of the operation code is in column two. Column three gives 
the length of the instruction in bytes. The number of clock cycles 
required to execute the instruction is in column four. The last 
column shows the form for coding the assembly language 
instruction. Condition flags that can be changed by an instruction 
are listed above the table of addressing modes. 

If an instruction time is followed by an asterisk, add one clock 
cycle to the time given if a page boundary is crossed during 
execution. 

To compute the actual time required for execution of an 
instruction or series of instructions, remember that the Apple II clock 
cycles at approximately one megahertz. There are 1 ,023,000 clock 
cycles in one second. 

• • • * • 

$$$ Implied Operand Instructions 

• • • 

The following instructions are all one byte long. Any memory 
accessing is from the stack. 

• • _ 

* 

BRK - Force Break 

• s 

Program execution is halted. The program counter is 
incremented by two and pushed onto the stack, high byte first. The 
break flag is set, and the processor status byte is pushed onto the 
stack. Processing continues at the address pointed to by $FFFE. 



Flags Modified: B 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

00 

1 

7 

BRK 


CLC - Clear Carry Flag 

The carry bit of the program status register is set to zero. 

Flags Modified: C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

18 

1 

2 

CLC 


CLD - Clear Decimal Flag 

The decimal flag of the processor status register is set to zero. 
Further math operations are in binary arithmetic. 

Flags Modified: D 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

D8 

1 

2 

CLD 

CLI - Clear Interrupt Mask 


• 


% 

The interrupt flag is set 

• A 

to zero, allowing interrupts. 


Flags Modified: 

1 

- 

Addressing 

Hex 

Bytes 

Cycles 

• 6 

Form 

Implied 

58 

1 

2 

s 

CLI 

CLV - Clear Overflow 

Flag 


A 

• 


The overflow flag is set to zero. 

9 m 

a 

* 

a 
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Flags Modified: V 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

B8 

1 

2 

CLV 


DEX - Decrement X 

The contents of the X register are decremented by one. If the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 


Flags Modified: N Z 


Addressing 

• 

Hex 

Bytes 

Cycles Form 

Implied 

CA 

1 

2 DEX 


DEY - Decrement Y 

The contents of the Y register are decremented by one. If the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 

Addressing Hex Bytes Cycles Form 
Implied 88 1 2 DEY 

INX - Increment X 

The contents of the X register are incremented by one. If the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

• 

E8 

1 

73 

♦ • 

2 

INX 



INY - Increment Y 

* m m m m 

" • m % 

The contents of the Y register are incremented by one. if the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles Form 

Implied 

C8 

1 

2 INY 


NOP - No Operation 

w m • 

Does nothing for two cycles. 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

EA 

1 

2 

NOP 


PHA - Push A 

% 

The accumulator is pushed onto the stack. 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles Form 

Implied 

48 

1 

3 PHA 


PHP - Push Processor Status 

• • 

The processor status register is pushed onto the stack. 

Flags Modified: none 

• m m m • • 

Addressing Hex Bytes Cycles Form 

* m mm 

Implied 08 1 3 PHP 

74 


PHX - Push X 

* 

• . - ~ 

The X register is pushed onto the stack. This instruction is 
only available on the 65C02. 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

• 

A 0 

Form 

• * • • * 

Implied 

DA 

1 

3 

PHX 

• • 


PHY- Push Y 

• • 

The Y register is pushed onto the stack. This instruction is 
only available on the 65C02. 

0 • _ 

Flags Modified: none 

• • • • • 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

5A 

1 

3 

PHY 


PLA - Pull A 

The accumulator is pulled from the stack. If the result is zero 
Z=one, otherwise Z=zero. If the result is negative (bit seven set) 
N=one, otherwise N=zero. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles Form 

Implied 

• 

68 

1 

4 PLA 

* • * • 


PLX - Pull X 

The X register is pulled from the stack. If the result is zero, 
Z=one, otherwise Z=zero. If the result is negative (bit seven set) 
N=one, Otherwise N=zero. This instruction is only available on the 
65C02. 
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Flags Modified: N Z 


Addressing 

s 

Hex 

Bytes 

Cycles Form 

% 

Implied 

FA 

1 

4 PLX 


PLY - Pull Y 

The Y register is pulled from the stack. If the result is zero, 
Z=one, otherwise Z=zero. If the result is negative (bit seven set) 
N=one, otherwise N=zero. This instruction is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles Form 

Implied 

7A 

1 

4 PLY 


PLP - Pull Processor Status 


The processor status register is pulled from the stack. 

Flags Modified: N V B D I Z C 


Addressing 

Hex 

Bytes 

Cycles Form 

Implied 

28 

1 

4 PLP 


RTI - Return From Interrupt 

The processor status, low byte of the program counter, and 
high byte of the program counter are pulled from the stack, in the 
order listed. The program counter is then incremented by one. 
This returns from a BRK or hardware interrupt. 


Flags Modified: N V B D I Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

40 

1 

6 

RTI 
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RTS - Return From Subroutine 

» • m " • 

» . • • • 

. « 

The program counter is pulled from the stack, low byte first, 
and incremented. This has the effect of returning to the instruction 

following the last JSR instruction. 

■ ( • * • • 

9 m - • m 

. . % * « 

Flags Modified: none 


Addressing 

Hex 

Bytes 

• • 

Cycles 

Form 

9 * 

V 

Implied 

60 

1 

6 

RTS 


SEC - Set Carry 

The carry flag is set to one. 


Flags Modified: C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

38 

1 

2 

SEC 


SED - Set Decimal Mode 

The decimal flag is set to one. Further math operations are 
performed in decimal arithmetic. 

Flags Modified: D 

• • • 

Addressing Hex Bytes Cycles Form 


Implied F8 1 2 SED 

SEI - Set Interrupt Flag 


The interrupt flag is set to one, preventing interrupts. 

Flags Modified: I 

* - 1 

Addressing Hex Bytes Cycles Form 


Implied 78 



1 


SEI 



TAX - T ransfer A to X 

• • ♦ 

Transfer the contents of the accumulator to the X register. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

AA 

1 

2 

TAX 


TAY - Transfer A to Y 

Transfer the contents of the accumulator to the Y register. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

A8 

1 

2 

TAY 


TSX - Transfer S to X 

Transfer the contents of the stack pointer to the X register. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

* 

Implied 

BA 

1 

2 

• 

TSX 


TXA - T ransfer X to A 

Transfer the contents of the X register to the accumulator. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

78 


Flags Modified: N Z 

• * • m . . * • 

Addressing Hex Bytes Cycles Form 

• • m • 

• •• * • 

• • • • 

Implied 8A 1 2 TXA 

k ’ * • . * # 

• 9 _ • • • * " ® 

• ® • , f 

TXS - Transfer X to S 

Transfer the contents of the X register to the stack pointer. 

* • * ' * • 

• * • ® % _ 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles Form 

v • 

Implied 

9A 

1 

% 

2 TXS 


TYA - Transfer Y to A 

Transfer the contents of the Y register to the accumulator. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 

(bit seven set) N=one , otherwise N=zero . 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Implied 

98 

1 

2 

TYA 
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BIT - Compare Memory and Accumulator 

A logical AND is performed between the accumulator and the 
specified memory location, but not stored. The zero flag is one if 
the result is zero, and zero otherwise. Bits six and seven of the 
result are stored in the V and N flags, respectively. 

Indexed and immediate addressing modes (op codes $34, 
$3C, and $89) are only available on the 65C02. 

% • 

Flags Modified: Z V N 


Addressing 

• 

Hex 

Bytes 

Cycles 

Form 


Absolute 

2C 

3 

4 

BIT 

ABS 

Absolute, X 

3C 

3 

4 

BIT 

ABS,X 

Immediate 

89 

2 

2 

BIT 

#ZP 

Zero Page 

24 

2 

3 

BIT 

ZP 

Zero Page.X 

34 

2 

4 

BIT 

ZP,X 
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CMP - Compare Accumulator and Memory 

i • " * 

■ 9 m 

The specified memory location is subtracted from the 
accumulator. The results are not stored, and the accumulator is left 
unchanged. If the result is zero Z=one, otherwise Z=zero. If the 
result is negative (bit seven set) N=one, otherwise N=zero. If the 
accumulator is smaller than the memory location then C=zero, 
otherwise C=one. 

CMP is normally followed by a branch. BCC branches if A < memory, 
BEQ branches if A = memory, BCS branches if A >= memory, and 
BNE branches if A <> memory. Note that BCC and BCS have alias 
names of BLT and BGE, respectively. These names are more 
mnemonic for the purpose of branching after a compare. 

Indirect addressing (op code $D2) is only available on the 
65C02. 


Flags Modified: N Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

CD 

3 

4 

CMP 

ABS 

Zero Page 

C5 

2 

3 

CMP 

ZP 

Immediate 

C9 

2 

2 

CMP 

#ZP 

Absolute, X 

DD 

3 

4* 

CMP 

ABS,X 

Absolute, Y 

D9 

3 

4* 

CMP 

ABS,Y 

(Indirect, X) 

Cl 

2 

6 

CMP 

(ZP,X) 

(Indirect) ,Y 

D1 

2 

5* 

CMP 

(ZP),Y 

Zero Page.X 

D5 

2 

4 

CMP 

ZP,X 

(Indirect) 

D2 

2 

5 

CMP 

(ZP) 


CPX - Compare X Register and Memory 

The specified memory location is subtracted from the X 
register. The result is not stored. If the result is zero Z=one, 
otherwise Z=zero. If the result is negative (bit seven set) N=one, 
otherwise N=zero. If the X register is smaller than the memory 
location C=zero, otherwise C=one. See CMP for branching 
possibilities. 



Flags Modified: N Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

• 


Absolute 

EC 

3 

4 

CPX 

ABS 

Zero Page 

E4 

2 

3 

CPX 

• 

ZP 

Immediate 

EO 

2 

2 

CPX 

#ZP 


CPY - Compare Y Register and Memory 

The specified memory location is subtracted from the Y 
register. The result is not stored. If the result is zero Z=one, 
otherwise Z=zero. If the result is negative (bit seven set) N=one, 
otherwise N=zero. If the Y register is smaller than the memory 
location C=zero, otherwise C=one. See CMP for possible 
branches. 


Flags Modified: N Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

CC 

3 

4 

CPY 

ABS 

Zero Page 

C4 

2 

3 

CPY 

ZP 

Immediate 

• 

CO 

2 

2 

CPY 

#ZP 


DEC - Decrement Memory 

The specified memory location is decremented by one. If the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 

Accumulator addressing (op code $3A) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing Hex Bytes 

Absolute CE 3 

Zero Page C6 2 

Absolute, X DE 3 

Zero Page,X D6 2 

Accumulator 3A 1 


Cycles Form 

6 DEC ABS 

5 DEC ZP 

7 DEC ABS.X 

6 DEC ZP,X 

2 DEC A 



EOR - Exclusive OR With Accumulator 

The contents of the accumulator are exclusive ORed with the 
specified memory location. The result is left in the accumulator. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Indirect addressing (op code $52) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

% 

Absolute 

4D 

3 

4 

EOR 

ABS 

Zero Page 

45 

2 

3 

EOR 

ZP 

Immediate 

49 

2 

2 

EOR 

#ZP 

Absolute, X 

5D 

3 

4* 

EOR 

ABS.X 

Absolute, Y 

59 

3 

4* 

EOR 

ABS.Y 

(Indirect, X) 

41 

2 

6 

EOR 

(ZP.X) 

(Indirect), Y 

51 

2 

5* 

EOR 

(ZP),Y 

Zero Page.X 

55 

2 

4 

EOR 

ZP.X 

(Indirect) 

52 

2 

5 

EOR 

(ZP) 


INC - Increment Memory 

The contents of the specified memory location are 
incremented by one. The result is stored back in the memory 
location. If the result is zero Z=one, otherwise Z=zero. If the result 
is negative (bit seven set) N=one, otherwise N=zero. 

Accumulator addressing (op code $1 A) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

• 

Hex 

Bytes 

Cycles 

Form 

6 • 

Absolute 

EE 

3 

6 

INC 

ABS 

Zero Page 

E6 

2 

5 

INC 

ZP 

Absolute, X 

FE 

3 

7 

INC 

ABS.X 

Zero Page.X 

F6 

• 

2 

6 

INC 

ZP,X 

Accumulator 

1A 

1 

2 

INC 

A 



LSR - Logical Shift Right 

% 

Shift the specified memory location right by one bit. A zero is 
rotated into the most significant (left) bit position. The least 
significant bit is dropped off into the carry flag. If the result is zero 
Z=one, otherwise Z=zero. If the result is negative (bit seven set) 
N=one, otherwise N=zero. 


Flags Modified: Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

• * 

Accumulator 

4A 

% _ 

1 

2 

LSR 

• • 

A 

Absolute 

4E 

3 

6 

LSR 

ABS 

Zero Page 

46 

2 

5 

LSR 

ZP 

Absolute, X 

5E 

3 

7 

LSR 

ABS,X 

Zero Page.X 

56 

2 

6 

LSR 

ZP,X 


ORA - Inclusive OR With Accumulator 

The accumulator is ORed with the specified memory location. 
The result is left in the accumulator. If the result is zero Z=one, 
otherwise Z=zero. If the result is negative (bit seven set) N=one, 
otherwise N=zero. 

Indirect addressing (op code $12) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

• 

Cycles 

Form 


Absolute 

* 

OD 

3 

4 

ORA 

ABS 

Zero Page 

05 

2 

3 

ORA 

ZP 

Immediate 

09 

2 

2 

ORA 

#ZP 

Absolute, X 

ID 

3 

4* 

ORA 

ABS.X 

Absolute, Y 

19 

3 

4* 

ORA 

ABS,Y 

(Indirect, X) 

01 

2 

6 

• • 

ORA 

(ZP,X) 

(Indirect), Y 

11 

• 

2 

5* 

ORA 

(ZP),Y 

Zero Page,X 

15 

2 

4 

ORA 

ZP,X 

(Indirect) 

12 

2 

5 

ORA 

(ZP) 




ROL - Roll Left 

* • • _ • • 

* • • * • 

% r * 

The specified memory location is shifted left by one bit. The 
carry flag is replaced by bit seven (most significant bit) . The old carry 
flag is rolled into the right most (least significant) bit position. If the 
result is zero Z=one, otherwise Z=zero. If the result is negative (bit 
seven set) N=one, otherwise N=zero. 



Flags Modified: N Z C 



Addressing 

Hex 

Bytes 

Cycles 

Form 


Accumulator 

2A 

1 

2 

ROL 

A 

Absolute 

2E 

3 

6 

ROL 

ABS 

Zero Page 

26 

2 

5 

ROL 

ZP 

Absolute, X 

3E 

3 

7 

ROL 

ABS.X 

Zero Paqe.X 

36 

2 

6 

ROL 

ZP,X 


ROR - Roll Right 

The specified memory location is shifted right by one bit. The 
carry flag is placed in the left (most significant) bit position. The least 
significant (right most) bit drops off into the carry flag. If the result is 
zero Z=one, otherwise Z=zero. If the result is negative (bit seven 
set) N=one, otherwise N=zero. 

Flags Modified: N Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

• 

Accumulator 

6A 

1 

2 

ROR 

A 

• 

Absolute 

* 

6E 

3 

6 

ROR 

ABS 

Zero Page 

66 

2 

5 

ROR 

ZP 

Absolute, X 

7E 

3 

7 

ROR 

ABS.X 

Zero Page.X 

76 

2 

6 

ROR 

ZP,X 


SBC - Subtract With Carry 

Subtract the specified memory location from the accumulator, 

storing the result in the accumulator. Decrement the result if the 

_ m • _ * • * 
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carry flag is clear. If a borrow from the next most significant byte was 
made, the carry flag is cleared; if not, it is set. If the sign bit (bit 
seven) was changed by the operation V=one, otherwise V=zero. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Subtracts normally begin by setting the carry flag. Subtraction 
of multiple byte numbers can then be made, proceeding from the 
least significant to most significant bytes. The carry flag keeps track 
of borrowing. 

The SBC instruction can function as a binary or decimal 
subtract, depending on the decimal flag of the processor status 
register. 

Indirect addressing (op code $F2) is only available on the 
65C02. 


Flags Modified: N V Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

ED 

3 

4 

SBC 

ABS 

Zero Page 

E5 

2 

3 

SBC 

ZP 

Immediate 

E9 

2 

2 

SBC 

#ZP 

Absolute, X 

FD 

3 

4* 

SBC 

ABS,X 

Absolute, Y 

F9 

3 

4* 

SBC 

ABS.Y 

(Indirect.X) 

El 

2 

6 

SBC 

(ZP.X) 

(Indirect) ,Y 

FI 

2 

5* 

SBC 

• • 

(ZP),Y 

Zero Page.X 

F5 

2 

4 

SBC 

ZP,X 

(Indirect) 

F2 

2 

5 

SBC 

(ZP) 


TRB - Test and Reset Bit 

The one's compliment of the accumulator is anded with the 
specified memory location. The result is stored in the memory 

location. The accumulator is not changed. 

• • # • 

• • • % 

9 • • * • ■ 

This instruction is only available on the 65C02 
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Flags Modified: Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 

- 

Absolute 

1C 

3 

4 

TRB 

ABS 

Zero Page 

14 

2 

3 

TRB 

ZP 


TSB -Test and Set Bit 

A logical or of the accumulator and the specified memory 
location is performed. The result is stored in the memory location. 
The accumulator is not changed. 

This instruction is only available on the 65C02. 


Flags Modified: Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

OC 

3 

4 

TSB 

ABS 

Zero Page 

04 

2 

3 

TSB 

ZP 




$$$ Branching Instructions 

m m « 

With the exception of the JMP and JSR instructions, all 
branches on the 6502 are both conditional and relative. Note that 
two times are given for relative addressing. The first applies if the 
branch is not taken. The second is for taking the branch. As noted, 
an additional cycle is required if the branch crosses a page 
boundary. 

* ' • * • r 

BCC - Branch on Carry Clear 

. * • • _ • 

Branch if the carry flag is zero. This instruction can also be 
coded as BLT, meaning branch on less than. BLT is not a standard 
6502 mnemonic. It is included as an alias for BCC because it is more 
natural for branching after a compare instruction. (If the carry flag is 
clear after a compare instruction, it implies that the register 
compared was less than the memory location it was compared to.) 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Relative 

90 

2 

2,3* 

BCC ABS 


BCS - Branch on Carry Set 

Branch if the carry flag is one. This instruction can also be 
coded as BGE, meaning branch on greater than or equal. BGE is 
not a standard 6502 mnemonic. It is included as an alias for BCS 
because it is more natural for branching after a compare instruction. 
(If the carry flag is set after a compare instruction, the register that 
was compared was greater than or equal to the memory location it 
was compared to.) 


Flags Modified; none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

- 

Relative 

BO 

2 

2,3* 

BCS 

BGE 

ABS 

ABS 
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b 


BEQ - Branch if Equal 

* * 

9 m m • • 

• * " * * . 

Branch if the zero flag is one. This indicates a zero result from 
the last load or arithmetic instruction, or an equal condition from the 
last compare instruction. 

• • % 


Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

Relative 

• 

F0 

2 

2,3* 

BEQ ABS 


BGE - Branch if Greater Than or Equal 

. % 

This is an alias for BCS, not a standard 6502 instruction. It is 
used to branch after compare instructions. See BCS. 

BMI - Branch if Minus 

• _ % 

Branch if the minus flag (N) is one. The N flag is set after load, 
arithmetic and compare instructions. It matches bit seven of the 
result (most significant bit). For signed arithmetic, bit seven is the 
sign bit, and is one for a negative number. 


Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Relative 

30 

2 

2,3* 

BMI 

ABS 


BNE - Branch if Not Equal 

* • 9 

• • • • 

Branch if the zero flag is zero. This indicates a non-zero result 
form the last load, arithmetic, or compare instruction. 

s , 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Relative 

DO 

2 

2,3* 

BNE 

ABS 

• \ 
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BLT - Branch if Less Than 

• • • • • " 

• ■ m « • • * 

" * * ■ • 

4 f • • “ ^ 

• • " * * m 

« m m 

m m • m • 

This is an alias for BCC, not a standard 6502 instruction. It is 
used after compare instructions to branch if the register was less 
than the memory location it was compared to. See BCC. 

• •• t * • # i 

BPL - Branch if Plus 

• V , 

Branch if the sign flag (N) is zero. The sign flag is set by load, 
arithmetic and compare instructions to the value of bit seven of the 
result (most significant bit). For signed arithmetic, bit seven is the 
sign bit, and is zero for positive numbers. 

a 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

V 

Relative 

10 

2 

2,3* 

BPL 

ABS 


BRF - Branch Always 

A relative branch is made to the specified destination. This 
instruction is only available on the 65C02. 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 


• • 

Relative 

80 

2 

3* 

BRA 

ABS 


BVC - Branch on Overflow Clear 

• • • • 

Branch if the overflow flag (V) is zero. The overflow flag is 
cleared by arithmetic instructions if the sign bit did not change 
during the math operation. It is also effected by the BIT instruction, 
which sets it to the value of bit six of the result (next most significant 
bit) . 
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Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

* 

Relative 

50 

2 

2,3* 

BVC 

ABS 


BVS - Branch on Overflow Set 

* 

Branch if the overflow flag (V) is one. The overflow flag is set 
by a math operation if the value of the sign bit was changed as a 

result of the operation. It is also set to the value of bit six after a BIT 

% * • • 

instruction. 


Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

• 

4 • 

Relative 

70 

2 

2,3* 

BVS 

ABS 


JMP - Jump 

A new address is loaded into the program counter. Execution 
continues from the new address. This is equivalent to the GOTO 
statement in most high level languages. 

Indexed indirect addressing (op code $7C) is only available on 
the 65C02. 


Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

4C 

3 

3 

JMP 

ABS 

Indirect 

6C 

• 

3 

5 

JMP 

(ABS) 

(Indirect, X) 

7C 

3 

6 

JMP 

(ABS.X) 


JSR - Jump to Subroutine 

• • m • • 

• a • 

• _ 

* 

The program counter is incremented by two and pushed on 
the stack, high byte first. The address in the last two bytes of the 
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instruction is loaded into the program counter; execution continues 
at that address. Assuming an unmolested stack, the next RTS 
instruction will cause program execution to resume with the 
instruction after the JSR. This is equivalent to a CALL statement in 
most high level languages. 

• * * • 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 

• * « 

• 

Absolute 

20 

3 

6 

JSR 

ABS 


$$$ Load and Store Instructions 

* • • 

LDA - Load Accumulator 

v 

V 

The accumulator is loaded from the specified memory 
location. If the result is zero Z=one, otherwise Z=zero. If the result 
is negative (bit seven set) N=one, otherwise N=zero. 

Indirect addressing (op code $B2) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

AD 

3 

4 

• 

LDA 

ABS 

Zero Page 

A5 

2 

3 

LDA 

ZP 

Immediate 

A9 

2 

2 

LDA 

#ZP 

Absolute, X 

BD 

3 

4* 

LDA 

ABS.X 

Absolute, Y 

B9 

3 

4* 

LDA 

ABS,Y 

(Indirect, X) 

A1 

2 

6 

LDA 

(ZP,X) 

(Indirect), Y 

B1 

2 

5* 

LDA 

(ZP) , Y 

Zero Page.X 

B5 

2 

4 

LDA 

ZP,X 

(Indirect) 

B2 

2 

5 

LDA 

• » • 

(ZP) 
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LDX - Load X Register 

The X register is loaded from the specified memory location. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 


• 

Absolute 

AE 

3 

4 

LDX 

ABS 

Zero Page 

A6 

2 

3 

LDX 

ZP 

Immediate 

A2 

2 

2 

LDX 

#ZP 

Absolute, Y 

BE 

3 

4* 

LDX 

ABS.Y 

Zero Page.Y 

B6 

2 

4 

LDX 

% 

ZP,Y 


LDY - Load Y Register 

The Y register is loaded from the specified memory location. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

AC 

3 

4 

LDY 

ABS 

Zero Page 

A4 

2 

3 

LDY 

ZP 

Immediate 

AO 

2 

2 

LDY 

#ZP 

Absolute, X 

BC 

3 

4* 

LDY 

ABS.X 

Zero Page.X 

B4 

2 

4 

LDY 

ZP,X 


STA - Store Accumulator 

The contents of the accumulator are copied to the specified 
memory location. 

Indirect addressing (op code $92) is only available on the 
65C02. 
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Flags Modified: none 


Addressing 

• 

Hex 

Bytes 

Cycles 

Form 

• 

* 

% 

Absolute 

8D 

3 

4 

STA 

ABS 

Zero Page 

85 

2 

3 

STA 

ZP 

Absolute, X 

9D 

3 

5 

STA 

ABS.X 

Absolute, Y 

99 

3 

5 

STA 

ABS,Y 

( Indirect, X) 

81 

2 

6 

STA 

(ZP.X) 

( Indirect), Y 

91 

2 

6 

STA 

(ZP),Y 

Zero Page.X 

95 

2 

4 

STA 

ZP,X 

(Indirect) 

92 

2 

5 

STA 

(ZP) 

STX - Store X Register 




4 

The contents of the X 

register are copied to the specified 

memory location. 


- 





Flags Modified: none 


1 

Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

8E 

3 

4 

STX 

ABS 

Zero Page 

86 

2 

3 

STX 

ZP 

Zero Page.Y 

96 

2 

4 

STX 

ZP,Y 

STY - Store Y Register 

• 



• 


, • 

The contents of the Y register are copied to the specified 

memory location. 






4 

Flags Modified: 

none 


4 

Addressing 

* 

• 

% 

Hex 

Bytes 

Cycles 

Form 

• 

* 

Absolute 

8C 

3 

4 

STY 

• * 4 

ABS 

Zero Page 

84 

2 

# 

3 

STY 

ZP 

Zero Page.X 

94 

2 

4 

STY 

ZP,X 
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STZ - Store Zero 

A zero is placed into the specified memory location. 
This instruction is only available on the 65C02. 

Flags Modified: none 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

9C 

3 

4 

STZ 

ABS 

Absolute, X 

9E 

3 

5 

STZ 

ABS.X 

Zero Page 

64 

2 

3 

STZ 

ZP 

i 

Zero Page.X 

62 

2 

4 

STZ 

ZP,X 


$$$ Logical and Arithmetic Instructions 

■ • • 

ADC - Add With Carry 

The contents of the accumulator are added to the contents of 
the specified memory location. If the carry bit is set, the result is 
incremented by one. If the sign bit (bit seven) was changed by the 
addition, the overflow flag is set, otherwise it is cleared. If the result 
was larger than 255, the carry flag is set. The result is left in the 
accumulator. Setting of the carry flag on overflow allows multiple 
byte numbers to be conveniently added, from least to most 
significant byte. 

This instruction can operate using binary or decimal arithmetic, 
depending on the D flag. In decimal arithmetic, ninety-nine is the 
highest number that can be held in the accumulator. The carry flag 

is set for results over ninety-nine. 

• * • • • 

Indirect addressing (op code $72) is only available on the 
65C02. 




* 



Flags Modified: N V Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

* 

Absolute 

6D 

3 

4 

ADC 

ABS 

Zero Page 

65 

2 

3 

ADC 

ZP 

Immediate 

69 

2 

2 

ADC 

#ZP 

Absolute, X 

7D 

3 

4* 

ADC 

ABS.X 

Absolute, Y 

79 

3 

4* 

ADC 

ABS.Y 

(Indirect, X) 

61 

2 

6 

ADC 

(ZP,X) 

(Indirect), Y 

71 

2 

5* 

ADC 

(ZP) ,Y 

Zero Page.X 

75 

2 

4 

ADC 

ZP,X 

(Indirect) 

72 

2 

5 

ADC 

(ZP) 


AND - Logical AND 

A logical AND is performed using the accumulator and the 
specified memory location. The result is left in the accumulator. If 
the result is zero Z=one, otherwise Z=zero. If the result is negative 
(bit seven set) N=one, otherwise N=zero. 

Indirect addressing (op code $32) is only available on the 
65C02. 


Flags Modified: N Z 


Addressing 

Hex 

Bytes 

Cycles 

Form 


Absolute 

2D 

3 

4 

AND 

ABS 

Zero Page 

25 

2 

3 

AND 

ZP 

Immediate 

29 

2 

2 

AND 

#ZP 

Absolute, X 

3D 

3 

4* 

AND 

ABS.X 

Absolute, Y 

39 

3 

4* 

AND 

ABS.Y 

(Indirect, X) 

21 

2 

6 

AND 

(ZP.X) 

(Indirect) ,Y 

31 

2 

5* 

AND 

(ZP) ,Y 

Zero Page.X 

35 

2 

4 

AND 

ZP,X 

(Indirect) 

32 

2 

5 

AND 

(ZP) 
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ASL - Arithmetic Shift Left 


Shift the contents of the specified memory location left one 
bit. A zero comes in on the right (least significant bit). Bit seven 
replaces the carry flag. If the result is zero Z=one, otherwise 
Z=zero. If the result is negative (bit seven set) N=one, otherwise 
N=zero. 


Flags Modified: N Z C 


Addressing 

Hex 

Bytes 

Cycles 

Form 

w 

Accumulator 

OA 

1 

2 

ASL 

A 

Absolute 

OE 

3 

6 

ASL 

ABS 

Zero Page 

06 

2 

5 

ASL 

ZP 

Absolute, X 

IE 

3 

7 

ASL 

ABS.X 

Zero Page.X 

16 

2 

6 

ASL 

ZP,X 
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Appendix A -- Assembler Error Codes 

$$$ Introduction 

During assembly the system attempts to identify coding errors 
in the source file. These errors fall into two broad categories; those 
that can be recovered from, and those that cannot. The following is 
a list of the errors given in ORCA/EZ arranged in the order that they 
can be found in this appendix. 


Recoverable Assembler Errors 

Addressing Error 00 

Backwards Ref by ORG 00 

Data Area Not Found 00 

DC Too Large 00 

Duplicate Label 00 

Expression Too Complex 00 

Invalid Operand 00 

Label Not Found 00 

Label Syntax 00 

Length Exceeded 00 

Misplaced KEEP 00 

Missing Operand 00 

No END 00 

Numeric Error in Operand 00 

Operand Syntax 00 

Operand Too Big 00 

Rel Branch Out of Range 00 

Too Many Data Areas 00 

Unidentified Operation 00 

Unresolved Ref in Equate 00 

• • 

Terminal Assembler Errors 

Catalog Full 00 

Copy Level Exceeded 00 

Drive Error 00 

File Not Found 00 

File Type Mismatch 00 

Keep File Locked 00 

Missing START 00 
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Read Error 

00 

Source File Too Long 

00 

Write Protected 

00 


$$$ Recoverable Assembler Errors 

• 4 • 

0 • • 

When an error is encountered by the assembler, it is flagged 
in the output source listing. The error message includes a brief 
description of the error; more detailed descriptions are listed below. 
Severity levels are also listed for the various errors. This is shown in 
square brackets after the error message. 

The error severity codes are divided as follows: 


Severity Meaning 


2 

4 

8 



Warning - things may be OK 

Error - an attempt at correction was made 

Error - no correction is possible, but only this 

instruction was effected. Space is left for 

correcting the program using the Apple monitor. 

Error - It was not possible to tell how much space 

to leave. Reassembly is mandatory. 


At the end of the source listing, the number of errors encountered 
is listed, as well as the maximum severity code detected. 


Addressing Error [16] 

The location counter from pass two did not match the value of 
the label as stored during pass one. 

Check for zero page addresses that were not resolved when 
this line was encountered on the first pass. (All zero page 
addresses must be defined before their first use.) Check math 
operations to insure that the value would not have changed from 
zero page to non zero page (or non zero page to zero page) as the 
result of resolving a label. (Labels which are not yet resolved are 
assigned the value $8000 during pass one.) Check for duplicate 
labels used in the operand. 
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Backwards Ref by ORG [2] 

* • m • 

An ORG directive contained an address that had already been 

assembled. 

* * 

Change the value of the ORG or move the subroutine that 
contained it to a place earlier in the program. 

Data Area Not Found [2] 

The DATA area listed in the operand of the USING directive 
did not appear in the program. 

This error can occur as a result of having too many DATA 
areas, so if that error results, correct it before going any farther. 
Next, check for spelling errors or syntax errors in the DATA directive 
for the area that was not found. 

DC too Large [16] 

v 

The DC statement tried to generate more than 256 bytes of 

code. 

Break the DC statement up into several smaller statements. 

• * 

Duplicate Label [4] 

The same label has been encountered more than one time in 
a program segment; or more than one global label is the same; or a 
local label and global label are the same. The value of the first label 
found is used, subsequent repetitions are ignored. No more than 
ten duplicate labels are flagged in a single code segment. 

Change one of the labels so that the duplication does not 
occur. 

_ • • m 

Invalid Operand [8] 

* • • m % a 

% “ ^ • 

“ ■ • " • | < 

. • * • • • . 

The operand type is not valid for the operation code; or a label 
appears in an operand or directive that is not contained in a 
subroutine. Free space is left based on the operand type. 
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Check to insure that the operand type is valid for the 
operation. If it is, review the syntax of the operand for coding errors 
that might have confused the assembler. Insure that A was not 
used as a label. If the operand contains a label ( * is considered a 

label), insure that it is inside a subroutine. 

* 

Label Not Found [8] 

m • 4 

The label in the operand field could not be found. 

9 

Check for spelling errors. Insure that the label is local to the 
current segment, that it is global, or that it is in a DATA area for which 
a USING directive has been issued in the current segment. 

l • 

Label Syntax [16] 

A field that was believed to be a label did not conform to the 

4 

standard label syntax rules. Free space is left based on the operand 
type. 

• v 

Check for syntax errors which may have confused the 
assembler. 

Length Exceeded [4] 

The valid length of some numeric value was too large. Free 
space is left based on the operand type. 

• 4 • 

Check the description of the statement for valid operand 
ranges. 

• • . 

Misplaced KEEP [16] 

Either more than one KEEP directive was used or the KEEP 
directive appeared after the first START statement. 

• * # • 9 4 

4 

* . * * * - ♦ . 

• * * • • 4 

Remove extra KEEP directives. The KEEP directive should 

•• • • • * m • 

be the first directive in the program (or the second if the first is a 
PRINTER ON). 
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Missing Operation [16] 

The operation field was not occupied. The instruction is 
ignored. 

Insure that the operation begins before column twenty-one. 
Insure that the label starts in column one. 

No END [2] 

A subroutine or data file had no END directive. This can also 
cause the symbol table to overflow or duplicate labels to be found. 
No action is taken. 

Place an END directive at the end of the subroutine or data 
file. Insure that the last directive in the source stream is an END 
directive. 

Numeric Error in Operand [8] 

0 

Either an arithmetic operation was performed which resulted in 
an overflow or a division by zero was attempted. Free space is left 
based on the operand type . 

Change the operand so that the error does not occur. Check 
all labels to insure that they contain the expected values. 

Operand Syntax [16] 

0 • 

The operand field did not correspond to standard coding 
rules. Free space is left based on the operand type. (No space is 
left for a DC directive.) 

• • $ • • * 

Check the section dealing with the instruction for syntax 

conventions. 

• m % 

• * 

Operand too Big [2] 

An operand for a directive that expected a one byte number 
contained a number greater than 255. The number modulo 256 is 
used. 
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Check to insure that all labels contain the expected values. 

• m 

Rel Branch Out of Range [8] 

* ■ 

* 

An attempt was made to use relative addressing when the 
branch point was outside of the range of relative addressing. The 
valid range is -125 to +129 bytes from the beginning of the 
instruction. Two free bytes are left. 

Use a branch around a JMP instruction to extend the range of 
the branch. 

Too Many Data Areas [2] 

More than eight data areas have been defined in the current 
program. 

Only eight data areas are allowed. Combine some of the 
smaller areas together to reduce the total number to eight or less. 

Unidentified Operation [16] 

The operation code did not match any instruction or 
assembler directive. The line is ignored. 

• • 

Check for label syntax errors which may have confused the 
assembler. Note that any label defined by this statement is not 
placed in the symbol table, and will be unresolved. 

Unresolved Ref in Equate [2] 

The equate referenced a label that was not resolved at the 
time of assembly. The link editor may not be able to properly 
relocate uses of the equate in the subroutine. 

If possible, remove the offending equate, or place the 
unresolved label earlier in the program and define it with a GEQU 
directive. If the value of the equate is correct, include the statement 

MERR 2 
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at the beginning of the program to allow automatic link editing and 
execution of the program even though the error still exists. 

$$$ Terminal Assembler Errors 

The following errors cause the assembler to terminate 
processing. The operating system loads the monitor and enters the 
editor with the offending statement on the top line of the display 
window. 

Catalog Full 

An attempt was made to save a new file on a disk whose 
catalog was full. 

Spread the program over more disks. So long as volume 
parameters are used after the APPEND directive, there is no limit to 
the number of disks that the assembler can access. 

Copy Level Exceeded 

An attempt was made to copy more than four levels deep. 
Check for files that may copy themselves. 

Disk Full 

A sector was needed to save something on the disk, but there 
was no more room. 

Spread the program over more disks. There is no limit to the 
number of disks that the assembler will use. 

Drive Error 

The RWTS (read write track subroutine) subroutine has returned an 
error code of $40. This indicates a drive error. 

Check for a damaged disk. Place the file that was being 
accessed on a different disk. 
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File Not Found 

An attempt was made to load a file which was not on the 
specified volume. 

If some volume numbers has been specified, but not for this 
file, include a volume parameter. Check the file name for spelling 
and insure that the disk file name contains no hidden characters. 

File Type Mismatch 

• • • | _ 

A file did not have the file type S. 

% 

Check to insure that no files have duplicate names with files of 
another type. 

Keep File Locked 

The file name given for saving code already exists, and is 
locked. 

Unlock the file if it is no longer needed, or change the name of 
the keep file. 

Missing START 

An instruction or directive which must be placed inside a 
program segment was encountered after and END directive and 
before a START directive. 

Review the organization of the subroutine. All statements 
which generate code, set up local labels or use labels in their 
operand must appear between START and END directives. 

Read Error 

The RWTS (read write track sector) subroutine was unable to 
read a disk sector. 

• s 

• * " * 

• * . % a 

Check for a bad disk or sector. Move the file to a different disk. 
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Source File Too Long 

• • . * \ 

A source file was longer than 8K. 

Shorten the offending file, using COPY or APPEND directives 

to connect the shorter files. Reboot the system before proceeding. 

, * 

\ • 

Write Protected 

% • m 

An attempt was made to write to a write protected disk. 

• • _ 

Change the volume number on the keep file to a volume that 
is not write protected. Insure that the volume with the assembler on 
it is not write protected. 





Appendix B - Source File Formats 

m * 

$$$ Overview 

• m % • 

d 

* % 

All files created by the editor have exactly the same format. 
They are stored on disk the same way as binary files, except that the 
file type is then changed to S. This is done by setting bit four 
(saving hex $08) in the file type byte of the catalog entry. 

$$$ The Header 

Both source and binary files begin with four bytes of header 
information. The first two are the load address, stored least 
significant byte first. The next two are the length of the file, again 
stored least significant byte first. The file itself begins with a four 
byte header. Byte one is the language identification byte, and is set 
to one for assembler files. Byte two is the update number. It begins 
as one and is incremented each time the file is saved. Bytes three 
and four are unused in ORCA/EZ; they should be set to zero. In 
ORCA/M these bytes are used to store the date. 

$$ Text Storage 

The remainder of the source file contains lines of text in 
ascending order. Each line begins and ends with the number of 
bytes in the line. Adding this number to the address of the 
beginning of the line gives the address of the next line. Going back 
one line is almost as easy - the value of the byte before the current 
line address is subtracted from the line address to obtain the 

address of the line before. The file ends with a zero. 

• • 

A simple code compression technique is used on the line 
before it is stored. First, all blanks are removed from the end of the 
line. All embedded blanks are replaced with the number of blanks in 
binary; thus four blanks in the middle of the line are replaced by a 
single byte containing $04. The length of the line is then placed on 
either side of the line, and the line is saved. 
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Two examples should help clarify this. First consider the line 

LDA ADR 

The screen characters for LDA yield the hex string 
CC C4 Cl 
while ADR is 

Cl C4 D2 
The line would appear as 

m % 

OA 07 CC C4 Cl 03 Cl C4 D2 OA 
Finally, a blank line is stored as 
02 02 
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$$ Appendix C -- Utility Programs 

t • • m 

• m 

% 

$$ File Conversion 

This program allows source files created by the text editor to 
be converted into standard DOS text files, and vice versa. It will only 
run under the ORCA/EZ operating system. To execute it, type 

BRUN CONVERT 

_ ® m * • 

from the monitor. 

• • % , • 

The program starts by presenting a menu. The operation of 
the program is explained below by describing each menu item. To 
perform a menu function, simply type the number that appears to 
the left of the menu item. It is not necessary to follow this with the 
RETURN key. 

Catalog 

When a one is typed from the main menu, a slot number is 
asked for. Enter a single digit from four to seven, followed by the 
RETURN key. This is the slot of the disk that is to be cataloged. 
Next, a drive number is asked for; this must be one or two. The 
specified disk is then cataloged. The first two lines give the volume 
number and tells how full the disk is. The remainder of the page is 
filled with file names in their standard format. 

If all of the file names will not fit on the screen, the line after the 
last file name listed has a flashing cursor on it. Hit any key to 
continue listing files. When all files have been listed, the bottom 
line will contain the message 

Hit any key to return to menu. 

Convert Source to Text 

Typing a two from the main menu converts source files 
created by this system into standard DOS text files. It prompts for 
the name of the file to be converted. This file name may contain the 
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Jcard character. Next, the program asks for the source slot and 
s«. Ac e drive. This is the disk that contains the source files created 
by the text editor. The slot and drive are entered exactly the same 
as for the catalog function. After this has been entered, it asks for 
the destination slot and drive. This is the disk where the converted 
text files is to be placed. (This can be the same disk.) The option of 
converting lower-case letters to upper-case is then presented. 
Answer Y or N, for yes or no. Finally, the selections made must be 
confirmed, in case an error was made. Keying Y at this point returns 
to the main menu; N begins the conversion process. 

If the wildcard character was used in the file name, the 

DO YOU WANT PROMPTING? 

message is displayed. A reply of N causes all source files that fit the 
file name mask to be converted. Replying Y lets the files to be 
converted be selected individually. File names for converted files 
will start with TEXT., followed by the old file name. 

Convert Text to Source 

This function works the same way as converting source files to 
text files, but it performs the opposite task. Keep in mind that the 
source slot and drive now point to the disk that has the text files on 
it, and the destination slot and drive point to the disk that will contain 
the source files. The created files will begin with SOURCE., 
followed by the original file name. 

Exit 

Typing a four from the main menu exits the program and 
returns control to the monitor. 
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Appendix D - A Comparison of ORCA/EZ and 

ORCA/M 


$$ Introduction 

* 

The purpose of this section is to explain the differences 
between ORCA/EZ and ORCA/M. Since the reference manual for 
ORCA/M is nearly 300 pages long, we obviously will not look at all of 
the differences, only the major ones. The reason for looking at 
these differences is twofold: first, to give you an idea of when it may 
be advisable to upgrade to ORCA/M, and second, to give hints as to 

what the upgrade will mean. 

$$ The Differences 

The most obvious difference between ORCA/M and 
ORCA/EZ is that ORCA/M is a macro assembler (hence the name - 
ORCA/M is macro spelled backwards). What this means is that the 
assembler, to a certain extent, is itself programmable. It is possible 
to define new instructions, which are then expanded by the 
assembler to the standard assembler directives and 6502 
instructions. As an example, lets take a look at adding two two byte 
integers. In ORCA/EZ, we would add NUM1 to NUM2 and save the 
result at NUM3 with seven assembly language instructions: 


SEC 
LDA 
ADC 
STA 
LDA 
ADC 
STA 

With ORCA/M, we could do the same thing with a macro. It 
would look like this in a program: 

ADD2 NUMt ,NUM2,NUM3 


NUM1 

NUM2 

NUM3 

NUM1+1 

NUM2+1 

NUM3+1 
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Note that the assembler will expand the macro and place 
exactly the same seven instructions in the program. If you were to 
disassemble the finished program, there would be no way to tell if 
those seven instructions were produced by a macro or if they were 
coded individually. The advantage is that you only need to code 
one line to accomplish the same task, so your program is shorter, 
easier to read and debug, and less prone to typographical errors. 

ORCA/M also eases programming by providing a very large set 

of macros in its macro libraries. The ADD2 macro used in the 

example above is one of these macros; also included are macros to 

do two, four and eight byte integer mathematics, high and low 

resolution graphics, text and number input and output, and a 

number of logic and miscellaneous functions like beeping the 

Apple speaker. Optional floating point support is also available. 

With the library provided, you may never need to write your own 
macros. 

The ORCA/M assembler works with another program, called a 
link editor, to produce a program that you can run. This the primary 
reason why ORCA/M is about 25% slower than ORCA/EZ, but the 
advantages of a link editor far outweigh the disadvantages for large 
programs. Some of these advantages are: 


1. Library subroutines only need to be assembled one 
time - the resulting "object module” is saved, and future 
programs simply call the subroutine. There is no need to 
include the source code of the subroutine in the new 
program - when the link editor discovers that the 
subroutine is not in the program, it will search the libraries 
for it and put the subroutine in the program automatically. 

2. If you are assembling a large program with several 
dozen subroutines and discover an error in one of them, 
you don't have to reassemble the entire program. You 
simply assemble the subroutines that have changed, and 
the link editor will automatically select the most recent 
version of each subroutine in the program. 
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3. it is very easy to write programs in more than one 
language. Using ORCA/M and ORCA Pascal as an 
example, you might write the main program and the input 
and output routines in Pascal, and the time critical graphics 
routines in assembly language. The finished program can 
be compiled, assembled, link edited, and executed, all 

with a single command! 

• a 

Another reason you might want to get ORCA/M is for the 
source code. If you have some non-standard peripherals, these 
can be easily accommodated, since the source code for the 
operating system is available. On the other hand, you may not need 
the source code, since the ORCA/M operating system can be 
quickly modified to take advantage of many non-standard 
periphrials. The source code for the macro and subroutine library is 

also available. 

■ 

$$ When to Change 

First, let's cover when not to change. If you are a beginner, 
ORCA/EZ is the correct assembler to have - ORCA/M is just to much 
to handle until you know the basics. In addition, if you are simply 
dabbling in assembly language, or writing very short programs as 
subroutines to BASIC programs, you may not need the advanced 

features provided by ORCA/M. 

Some sign posts indicating that it may be time to change are: 

1 . If you are regularly writing programs that are longer than 
500 lines, you will find that ORCA/M was designed 
specifically for programs in this range and longer. 

2. If you are doing mathematics, advanced graphics, or any 
other application where a specialized instruction set would 
help, you should switch for the macro capability. The 
macro capability of ORCA/M is the most advanced on any 

microcomputer. 

" ^ 

# 

3. if you are regularly writing programs in more than one 
language, and a compiler is available for the other 
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languages you use, there could not be a simpler 
environment than ORCA for handling your multi-lingual 
programs. 

• • 

• % 

* • 

4. Developers and large programming shops that can 
benefit from controlled, centrally developed libraries will 
find the link editor capabilities make the switch worthwhile. 
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